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AUDIT Main Program 


—, , ie Cc PROGRAM MAINCINPUT ,OUTPUT,TAPES#®INPUT,TAPEGSOUTPUT,TAPE7,TAPES, 
ze (- © TAPED, TAPES, TAPEDF) 
= 3e  ___ CeeeelF UNI VAC 1108 - PLACE aA *C* IN COLUMN | OF PREVIOUS TwO CARDS _ CH34 4 
4e COMMON A(1326),0(500) ,LO0TBL (8,500) ,INITIO(3),LASTIO(3),I1SRCH(3), RICH 2 
_Sa 2 JPTIR NM, JTYP i START N2,1F NCNM, OGIO,NXATID,IOTYP,NID,L OC, < 
6e 2 CTYP,ITYP,IGLKOT MOOE, TERR, IDES RICH 4 
i. es DIMENSION IORD(1S) Re 
Be COMMON/GLOBAL/NBLK ,NREF ,NSUBS,BLKTBL(200) ,EXTTBL(100),1SUBS(100) 
cS COMMON/LIST/NLIST,NINIFCsISUBLT(3,200),INIFAC(SOO) e 
100 COMMON/FLOW/IFL,IRP 
tie COMM ONSSTEUNC/NSTFENC, ISTENC(I10) 
i2e COMMON/INPOUT/NCALL,IN,IOP MAIN 7 
Lie COMMON/LABELS/STATRA(2,200) ,NLABEL MAIN 8 
19° : COMMON/DOLOOP/ISTACK(4,50) ,NSTACK,ILOOP,IOVFL& 
ise COMMON/BASBLK/IBLOCK( 2500) »NBLOCK »NByNBRNCH i - si 
lée INTEGER A,BLANK,STATRA,EXTTBL »BLKTBL 
" j7e- DATA BLANK/IH / = = MAIN 15 
ge DATA LORD/29 430638 432525528 5199520523 5226234245 26027,3554 
1%e Top=s8 MAIN 18 
20¢ READ(S,12) MODE,IN,IFL,INTR 
—___21i¢ 2 FORMATITI, 314) : 
22¢ NCALL#O CH34 2 
23¢ _ NPROG#99 
24e NREF#®Q CH34 3 
2se NBLK*Q CH34 4 
26¢ NSUBS#0 CH34 Ss 
44S IRP#IFL-1 ae - = zs 
286 READ(4) NLISTNINTFC 
27e READ(4) (CISUBLT( I,J) s181,3)sd81,NLIST) 
306 READ(4) CINTFAC(CID, Tel »NINTFC) 
ae) 4 ISTAT=0 CH34 12 
32e 1OVFL ae 
aie _MAINPR#Q —_ ——— 
34e NLABEL®0 
— 35 ¢- NID#Q CH34 43 
36e JJs0 CH34 14 
37e IBLKOT=0 CH34 15 
386 NSTACK#0 CH34 16 
Sees: <n NBLOCK#®O —— = E = GHIS 22 
400 1LOOPs90 CH34 16 
4ie NB=0 CH34 #19 
42e IBLKSTs0 CH34 20 
43e. NSTFNC#O 
44e@ WRITE(6,13) MAIN 38 
aa SSS FP ORRAT CIR EY = ince a a RAIN SF 
460e IF NCNM#BLANK MAIN 40 
47¢@ 00 2 [#ts8 MAIN 41 
480 00 2 J#1,500 MAIN 42 
49e 2 1O0TBL(I,/)#0 MAIN 43 
soe 00 3 [21,200 MAIN 44 
Sie a STATRA(}eI) #9 ee ee MAIN 45 
S2e 3 STATRA(2,1)#0 MAIN 46 
S3e 00 S I#1,3 MAIN 4? 
S4e INITIO(I) #0 MAIN 48 
sSe S LASTIO(1I)#0 MAIN 49 
See 700 CONTINUE 
= s7e IF UNBLOCK «GT. 2500) GO To 7000 rae 
S8e CALL BUILD MAIN SI 
S9e WRITE(6,1000) (ACT) ,181yN) MAIN S2 
60¢ 1000 FORMAT(//6X,100A1,13(/6%,100A1)) MAIN S3 
6le IFCACL) eEQ. IHC) GO TO 700 MAIN S54 
62e IFCNEXT(E) 2EQ@e BLANK) GO TO 700 MAIN S56 
63¢ : ee eet Pe : a MAIN S56 
b4e CALL CLASS main 5? 
65¢e IFCITYP «GT. 18 eANDe ITYP «NEw 28) GO TO 1320 MAIN 58 
66¢ CALL STATNO SAIN 59 
670 1320 JPTRe7 fain 60 
66e TPREC@ISTAT MAIN 61 
ae || eee a ek — = —————e MAIN 62 
70¢ IF( JS eE€Q@. 1) GO TO 7 MAIN 63 
7I1e IF (IBLKOT .EQ@e 0) GO TO 6 MAIN 64% 


oe —e _ — 
Pern ph maths Ail ve ae . , ‘ “ 


Bs oe ; _ = . 


72¢ 
73e 
T4e 
7Se 
7be 
77¢ 
760 
798 
80e 
Ble 
82e 
830 
B4e 
85a 
860 
87e 


890 

90¢ 

Sie 

92¢ 

ose 

94e 

9Se 

9be 

9708 

9Be 

99e 
1o0¢ 
1Ole 
tG2e 
4030 
104e 
3056 
1066 
1076 
1086 
1090 
110¢ 
lie 
lize 
lise 
tive 
tise 
llee 
hive 
tife 
live 
S2a¢ 
t2ie 
122 
1236 
124e 
1250 
126¢ 
127¢ 
1286 
129¢ 
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7 
Ceeee 


25 


900 


40 


is 


17 


20 


3G 


35 
38 
40 
so 


60 


67 


70 


60 


90 


100 


IFCITYP eGEe 18 eANDe ITYP eLEs 27) GO TO 8B 
GO TO 220 = 

TFCLTYP «EQ. 7} GO TO i20 

GO TO 8 

IPREC#29 
elF COC 6700 = PLACE A 3C? IN COLUMN 1} OF NEXT 
IFCITYP .GEe 29 eAND. ITYP oLEe 32) GO TO 25 
MAINPRe} 2 3 
NXTIOS4YHMAIN 

CALL PROG 

“WPROGSNPROGI 

ARITECIOP,900) NPROG 

FORMAT(IOHOFOR,I PRG,I3) 

LFAMAINPR EQ. 0} GO TO 8B =. 
WRITECIOP,610) 

WRITECIOP,620) 


4 CARDS 


GO TO (60,70580,90,100+110,205140,20520+40+40,50+50,50,120,130, 
b 2000510510 530510510,870,18051904200,210,150,38,30,220,220,220, 


2 220,220),1TYP 
DO 4S bab,as ees —— 


IF (iPREC .EQe TORD(I)) GO TO 17 
CONTINUE 

CALL ERROR(2,KOMI,KOM2) 

CALL TYPE 

GO TO SOO 

CALL SIMP —— 

GO TO $00 

TF( Sd oNE, £2 CALL ERRORI2,KDOM1,KOM2?) 

00 35 181,20 

IF(NEXT(JUPTR) «NEo LHF) GO TO 35 

JPTReIPTRe} 

CALL SUB Ss a : 


GO TO SOO 

CONTINUE 

IF (JS «NEw 1) CALL ERROR(2,KOMI,KOM2) 

CALL SUB 

GO TO 5006 

CALL 10 —_ ————— a ——- 
GO TO $00 

CALL AUXKIO 

GO TO S00 

CALL INIT 

WRITE(6566) (ACT) let yn? 

IF cCITYP .«NEs 35) GO TO SOO _ ——— _— 
ISTAT#3S 

OO 67 I*#1,15 

TFCTPREC .€Q@6 TOROCII? GO TO S00 

CONTINUE 

CALL ERROR(2,KOMI,KOM2) 

GQ 19 SO —- 
CALL ASSIGN 

GO TO $00 

CALL GOTO 

60 To $00 

CALL ASGOTO 

GO TO S00 — 
CALL CTGOTO 

6o0 TO S00 


MAIN 
MAIN 
MAIN 
MAIN 


MAIN 


MAIN 
MAL 
MAIN 
MAIN 


MAIN 
MAIN 


MALN 


MAIN 


MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 


MAIN 
MAIN 


MAIN 


MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 


MAIN 
MAIN 


MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
SALN 
MAIN 
MAIN 


6s 
66 
67 
66 


70 


72 
#3 
74 
75 


77 
78 
79 
60 


62 
83 
64 
as 
86 
87 


89 
90 
ot 
92 
93 
94 
9S 
96 
27 
98 


100 
101 


103 
104 
105 
106 
107 
108 
4109 
110 
dit 


1306 110 CALL ARIF MAIN 112 
__ 3 he ___60 TO $00 = : = ee fe =e = _ MAIN 113 
132e 120 CALL LOGIF MAIN 114 
1336¢ GO To 500 MAIN 115 
I34e 130 CALL 00 MAIN 116 
13Se GO TO 500 MAIN 117 
13660 140 CALL CALL MAIN 118 
ka7e ARETE CES GAD CACTI Ne SN oe = = —— —AATN 19 
1386 66 FORMAT(6X,72A1) MAIN 120 
139¢ GO TO $00 MAIN 121 
14060 150 IF( Js eNEe 1) CALL ERROR(2,KOM1,KDM2) 
i41Le IBLKOT#1 MAIN 123 
i42e CALL SIMP MAIN 124 
a Oo a GQ To soa : : = ee aE OS 
144e CeoeeeelF UNIVAC 1108 = PLACE A :C: IN COLUMN 1 OF NEXT 3 CARDS 
14Se C 160 IF(sJ =NEw 1) CALL ERROR(2) 
1460 C CALL PROG 
147¢ c GO TO S00 
14860 170 00 175 181,12 MAIN 129 
1498 = IFC IPREC .EQs I1O0RD(1)) GO TO 177 = = MAIN 130 
150¢ 175 CONTINUE MAIN 131 
Sie CALL ERROR(2,K0M1,K0M2) 
1S2e 177 CALL OIMEN MAIN 133 
1S3e GQ TO SOO MAIN 134 
iS4e 180 00 185 18#1,5 MAIN 135 
15Se IFCIPREC .EQs IORD(1)) GO TO 187 ese MAIN 136 
1S6e 185 CONTINUE MAIN 137 
1S7¢ CALL ERROR(2,K0M1,K0M2) 
1566 187 CALL COM MAIN 139 
1S9e GO To sag MAIN 140 
1606 190 00 895 I#t,t3 MAIN 14) 
—__lAte EF UE PREC GFR SORD EE) ) GO Fn 197 —— — MAIN 142. 
1626 195 CONTINUE MAIN 143 
163¢ CALL ERROR(2,.KOM1,KDM2) 
lé4e 197 CALL EQUIV MAIN 14S 
16S¢ GQ TO 500 MAIN 146 
1660@ 200 0O 205 181,14 
ae Yd . LECEPREC FO. IORD (8) ) 60 TO 297 a es 
1686 205 CONTINUE 
149¢ CALL ERROR(2,KOM1,KDM2) 
1706 207 CALL DATA 
i71e GO TO soo MAIN 148 
172¢ 210 00 215 11,6 MAIN 149 
eee! IFCIPREC ,EQs IORD(1}) GO TO 217 ———— = a BA EN SS 
17460 215 CONTINUE MAIN IS1 
17Se CALL ERROR(2,KOM1,K0M2) 
176¢ 217 IF(N ¢GTe 72) GO TO 240 MAIN 153 
177° WRITE(1OP,218) (ALT). 812N) MAIN 194 
1786 218 FORMAT(724A1) MAIN ISS 
2. Se GO TO 250 spain ee eee MAIN 156 
1806 240 MRITECTOP,24S) (ALT), Lei sN? MAIN 157 
18h¢ 24S FORMAT(72ZA1/(5Xs1H®,66Al)) MAIN 158 
182¢ 250 CALL FRMAT MAIN 159 
1836 GO TO 700 MAIN 160 
184e 220 CALL ERROR(1,KOME,KOM2) 
pe ee ERS Ee heel — = MAIN 162 
1660 [F(N «GTe 72) GO TO 540 MAIN 163 


1876 WRITECIOP,520) (A(T),1el aN) MAIN 164 


a 


MAIN 


at EN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 


MAIN 
MAIN 
— MAIN 
MAIN 


MAIN 


18860 520 FORMAT(72A1) 
__1Age GO TO 400 ss. ee == 
1906 540 WRITE(IOP,S4S) (ACT),1T®1,N) 
19160 S45 FORMAT(72A1/(5X,1H®,66A1)) 
1926 600 IF (MODE «NE~ 1) GO TO 700 
i930 IFULTYP el Te 30 2ORs ITYP 2GTe 32) GO TO 700 
194e WRITE(IOP,610) 
1950 410 FORMAT(SX,1SH COMPLEX Q1COMP) 9 en a a 
1960 WRITE(1OP,620) 
197¢ 620 FORMAT(SK,24H DOUBLE PRECISION QLOPRE} 
19860 GO TO 700 
1998 2000 wRITE(10P,2020) 
200¢ 2020 FORMAT(6X,3HEND) 
= 2iilien= = __AF(N aNEo 72) WRITE(4,2100) a oe enone 
2026 2100 FORMAT(6X,22H ILLEGAL END STATEMENT) 
2036 CALL SUBCHK 
2046 IFCINTR NE» 1) GO TO 3205 
205¢ CALL INTRIN 
2066 3205 CALL SYMTAB 
= 209s == CREE GRY Bee eee atts 
2086 CALL COMCHK 
2090 IF(IOVFLM .EQs 1) GO TO 3210 
2106 CALL LOOPCK 
2118 IFCIFL s€Q. U0 .ORe IBLKOT 2£Q6 1) GO TO 3210 
2120 CALL FLOWCK 
—2)3e__32)0 IFLIERR .NE. 2) GO TO 4 Oo a 
2146 CALL GLOTaB 
2150 IF (MODE »€Q. 1) GO TO 6000 
2166 CALL GENROL 
2178 ENDFILE 9 
2180 REWIND 9 
2190 6900 ENOFILE BO : ees ae e. 
2200 REWIND 8 
221¢ STOP 
2226 7000 WRITE(6,7005) 
2230 7005 FORMAT(/////5X,54H OVERFLOW OF BASIC BLOCK TABLE = PROCESSING TERM 
2246 eINATED) 
— 2756 STOP : — 
2260 END 


i 


MAIN 


Se se eee eee e eee ener eee ne eee 


AUDIT Subprograms 


le SUBROUTINE ARIF ARIF 2 
ze COMMON A(1326),0(500),10TBL (8,500) ,INITIO(3) ,LASTID(3),1SRCH(3), RICH 2 
Ae @ JPTR,NsM,JTYP,LSTART,N2,I1FNCNM,LOGIDN,NATID,IOTYP,NID,LOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IDES RICH 4 
se COMMON/TYP/NQQ,RHSTYPsNQZ,NQ3aLHSTYP _ m 
be COMMON/STRING/NTYPE,NSTR,STR(SOO) ARIF Ss 
ie __COMMON/LABELS/STATRA(2,200),NL ABEL "i 2 
Be COMMON/BASBLK/IBLOCK( 2500) »NBLOCK ,NBy»NBRNCH 
= ee INTEGER A,STATRA,STR,COMMA,BLANK ,RHSTYP,AY,EF ARIE a 
10e INTEGER BITPUY ARIF 9 
lie DATA LPAR/IH(/,COMMA/IHy/yBLANK/IH /yAY/IMI/,EF/IMF YS ARIF 10 _ 
i2e IF (NEXTC(JPTR) «NEe AY) GO TO 20 ARIF ti 
gees Fe (CS ___IF(NEXT(JPTR) «NEo EF) GO TO 20 om: ARIF 42 
b4e JFEINEXTIJPTR) »NEo LPAR) GO TO 20 ARIF 13 
ise JPTReyPTRoI ARIF 14 
1é6¢ CALL EXPR ARIF is 
gi ee NG ER ONS ERS en ee eee 2. ARIF 1b 
166 STRINSTR)« <5 ARIF u:7 
190 NTYPE®] ARIF 18 
206 CALL PARSE ARIF te 
21e— CALL FNCSTR : ARIF 20 
22¢ TFCRHSTYP .EQe 1) CALL ERROR(42,KOM1,KOM2) 
238 CALL BLKSTR — = sane eos a 
24e NBRNCH#O ARIF 22 
e 250 DO 10 I=1,3 ARIF 23 
z6e CALL GNLE ARIF 24 
: 270 IF(UTYP e#NEe 5) GO TO 20 - ARIF 25 
26¢ CALL STSRCH ARIF 26 
290 ____STATRAL2 LOC) eBITPUTLSTATRA( 2.100) 1,12! _ BREE 23) 
30¢ IF( NBRNCH eEQe OP GO TO 5S ARIF 28 
aie 00 3 J#laNBRNCH ARIF 29 
32¢ IF(LOC e&€Qe IBLOCK(NBLOCK=Jel)) GO TO 7 ARIF 30 
aie 3 CONTINUE ARIF 31 
34e S NBLOCKeNBLOCKel ARIF 32 
omen: oY IBLOCK(NBLOCK)#=LOC ——- SS et ARIF 33 
Jee NBRNCH#NBRNCHEI) ARIF 34 
37° 7 IF (CL e£@e 3) GO TO 10 ARIF 35 
38¢ IFC(NEXT(JPTR) «NEe COMMA) GO TO 20 ARIF 36 
ave iQ CONTINUE ARIF 37 
40¢ IF QNEXTCJPTR) »NEe BLANK) GO TO 20 ARIF 38 
die afc] oe ee es ie: = _ARIF 39 
42¢e RETURN ARIF 40 
43¢ 20 CALL ERROR(7,KOMI,KOM2) 
44e RETURN ARIF 42 
450 END ARIF 43 


le SUBROUTINE ASGOTO ASGOTO 2 
2e COMMON A(1326),0(500) ,10TBL (8,500) ,INITIO(3) ,LASTID(3),1SRCH(3), RICH 2 
je © JPTRNoM,JTYP,LSTART,N2,1FNCNM,LOGID,NXTID,IDIYP,NID,LOC, 
4e 2 LTYP,ITYP,IBLKDOT, MODE, IERR,IDES RICH 4 
Sei COMMON/LABEL S/STATRA(2,700) ,NLABEL -ASGOTO 4 
be COMMON/BASBLK/IBLOCK (2500) »NBLOCK ,NB,yNBRNCH 
7e DIMENSION IALPH(4) a = = = ASGOTO 4 
ge INTEGER STATRA,BLANK,COMMA,RPAR,A ASGOTO 7 
Qe INTEGER BITPUT,BITGET = ASGOTO & 
106 DATA (LALPH(1),181,4)/1HG,1HO>1HT,1HO/ ASGOTO 9 
de DATA BLANK /I1H /,COMMA/IH,/,LPAR/IH(/,RPARSIM YS ASGOTOIO 
12e 00 S I#1e4 ASGOTOLE 
L3e IF(NEXT(JPTR) .NEs IALPH(1)) GO TO 30 ———— ___ ASGOTO12 
14e 5 CONTINUE - —=—_ ASGOTOI3 
7 150 5 CARE AGNUE ee _ASGOTOI4 | 
Loe IF(JTYP eNEs 2) GO TO 30 ASGOTOIS 
17e CALL SEARCH ae: ; ASGOTOL6 
186 IFCISRCH(2) c£€Qe 1) CALL ERROR(IO,NXTID,KDM2) 
19¢ IF(ISRCH(]) «€Q. 1) GO TO 10 es ASGOTOIB8 
200 1DTYPel ASGOTOL®? 
=) CALL STORE = ASGOTO2O0 
22e LOCsNID ASGOTO2I 
23% 10 CALL IMPTYP : ASGOTO22 
24e IF (BITGET(IOTBL(3,L0C),10,3) eNEse 4) CALL ERROR(39,NXTID,KOMZ) 
25¢ IF(BITGETCIOTBL(3.LOCI adsl) e&Qe 1) CALL ERROR(I4Y,NXTID,KOM2) 
260 IF(NEXT(JPTR) eNE~ COMMA) GO TO 30 aSGOTO2S 
SE LF({NEXT(JPTR) .NEs LPAR) GO TO 30 = __ASGOTO26 
2860 NBLOCK®NBLOCK¢1 ASGOTO27 
290 IBLOCK (NBLOCK ) #SO00+L0C ASGOTO28 
3060 NBRNCHSO ASGOTO2? 
ale 20 CALL GNLE — ASGOTO30 
32e IF(JTY® «NEe 5) GO TO 30 ASGOTO3I 
——=$ ja CALL SISRCH —ASGOTO32- 
34e STATRAC2sLOC) =B1TPUT(STATRA(Z LOC) 112? ASGOTO33 
350 LFLNBRNCH .£Q@e 0) GO TO 25 z ASGOTO34 
Joe 00 22 181,NBRNCH ASGOTO3S 
37e IF(LOC sEQ@. IBLOCK(NBLOCK-1¢1)) GO TO 27 ASGOTO36 
3860 22 CONTINUE ASGOTO37 
390 25 NBLOCK#®MBLOCK¢1! san ee ee ee __ ASGOTO38 
400¢e IBLOCK (NBLOCK)#LOC ASGOTO39 
41¢ NBRNCH#NBRNCH*L ASGOTO4O 
42e 27 IF(NEXT(CJPTR) s€Qe COMMA) GO TO 20 ASGOTO4I 
430 IFCACJPTR-1) eNEs RPAR) GO TO 30 ~ ASGOTO42 
440 IF(NEXT(JPTR) »NEe BLANK) GO TO 30 ASGOTO43 
pee. Ct See eee : SS ASGOTOS4 
460e RETURN ASGOTO4S 
47° 30 CALL ERROR(7sKOM1,KDM2) 
4Be RETURN ASGOTO47 
49° END ASGOTO46 
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‘Te SUBROUTINE ASSIGN 
2e _ COMMON A(1326),D(500),1DTBL(8,500),1NITID(3),LASTID(3),1SRCH(3), 
3e © JPTRyN gM, JTYPyLSTART©N2,LFNCNM,LOGIDNXTID,IOTYP,NID,LOC, 
4e 2 LIYP,ITYP,IBLKDT,MODE,IERR,IDES 
Se COMMON/LABELS/STATRA(2,200) ,NLABEL 
be COMMON /BASBLK/IBLOCK(2500),NBLOCK NB,NBRNCH 0 
! 7e OIMENSION IALPH(6) 
) Be INTEGER BLANK,TEE,OH,STATRA 
9° INTEGER BITPUT,BITGET 
106 DATA BLANK/IH /,TEE/IHT/,OH/1HOs 
lie DATA CLALPH(1),181-6)/1HA, IHS» IHS, IHI, IHG, IHN/ 
120 O06 fete ae —— 
3 13e IF(NEXT(JPTR) «NE. TALPH(1)) GO TO 20 
i4e S CONTINUE 
1Se CALL GNLE 
pa UE LF(JTYP «NEs $1 GO TO 20000 2 
17e CALL STSRCH 
) 1e¢ STATRA(Z2sLOC) sBITPUT(STATRASZsL0C) a1s12) 
. 19¢ IF(NEXT(JPTR) «NE. TEE) GOTO 20 
. 20° IF(NEXT(JPTR) «NE» OH) GO TO 20 
21e CALL GNLE 
220. ____AFLUTYP .NEe 2) GO TO 20 eee 
230 CALL SEARCH 
24e IFC ISRCH(2) e€Qe 1) CALL ERROR(LONXTIDsKOMZ) 
2Se IFC ISRCH(L) e&Qe 1) GO TO 10 
260 IDTYPs] 
276 CALL STORE 
a Re AEG CONE Ore eee oo es : 
290 10 CALL IMPTYP 
30° IF(BITGET(CIDTBL(3,L0C),10,3) #NEo 4) CALL ERROR(39sNATIDsKDM2) 
3ie IF(BITGET(IOTBL(3,LOC) e151) e&Qe 1) CALL ERROR(14,NXTIO,KOM2) 
: 32e IF(NEXT(JPTR) «NEe BLANK) GO TO 20 
336¢ NBLOCK®SNBLOCKel 
—_a4e BLOCK (NBLOCK) #400NeL0C = _ = 
350 RETURN 
3oe 20 CALL ERROR(7sKOM1,KOM2) 
376 RETURN 
3860 END 


ASSIGN 2 
RICH 


RICH 4 
ASSIGN 4 


ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGNIO 
ASSIGNIIL 
ASSIGNi2 
ASSIGNI3 
ASSIGNI4 


ASSIGNIS 
ASSIGNI6 
ASSIGNI7 
ASSIGNIE6 
ASSIGNI? 
ASSIGN20 
ASSIGN21 
ASSIGN22 


2 eono 


ASSIGN24 
ASSIGN2S 
ASSIGN26 
ASSIGN27 
ASSIGN28 


ASSIGN31 
ASSIGN32 
ASSIGNI} 
ASSIGN34 


ASSIGN36 
ASSIGN37 


SUBROUTINE AUAKIO 


COMMON A(4326),0(500),/0TBL(8,S00) ,INITID(3),LASTIO(3),1SRCH(3), 


@ JPIRNoM,ITYP,LSTARI,N2¢1FNCNM,LOGIO,NATID,IOTYP,NID,LOC, 
2 LTYP,ITYP,IBLKOT,MODE,IERR,IOES 

COMMON/BASBLK/IBLOCK(2500) ,NBLOCK,NB.NBRNCH 

OIMENSION LTALPHI(6),TALPH2(9),1TALPH3(7) 

INTEGER ALIGET 

DATA CIALPHICT) Pel, 6) /THRe IME, TH®STHI THN, LHO/ 

DATA (CIALPH2Z(1) ,1 81,9) /2HBsIHASIHCSIMKsIHSsi HPs lHAs IHC, IMES 
DATA (CIALPH3(1),1e1,7)/1HEs THN, EHD, IHF IHL LHL, LHES 
[T=16-1TYP 

GO TO (25,15,5),1T 
20 10 Ie1,6 sae 
IF(NEXT(JPTR) oNEs TALPHECI)) GO TO 50 
CONTINUE 

GO TO 40 


OO 20 Iet,9 me eee Se - M 
IF (NEXT(JPTR) «NEe LALPH2(1)) GO TO SO 

CONTINUE 

GO TO 40 

0O 30 Ial,7 

IF(NEXTCJPTR) «NEe TALPH3(1)) GO TO SO 

CONTINUE : Se es 
CALL GNLE 

IF(JTYP eNEe 2) GO TQ 60 

IF CNEXT(JPTR) «NEe 1H ) GO TO SO 

CALL SEARCH 

IFC ESRCH(2) cEQe 1) CALL ERROR(IO,NXTIDO,KOM2) 


__LELISRCH{4) .£EQ@. 1) 60 TO 45 _ = ———S 


69 


1OTYPe! 

CALL STORE 

LOC#NID 

CALL IMPT YP 

TF (CBITGET(IOTBL(3,L0C),10,3) «NEs 4) CALL ERROR(22,K0M1,K0M2) 
SELBLIGETLIOTBLIS LOCI ,4,4) EQ. 4) CALL ERRORLIN,WATIO,KOM2) 
NBLOCK#NBLOCKel 

IBLOCK {(NBLOCK }#2000eL0C 

RETURN 

CALL ERROR(7,KOML,KOM2) 

RETURN 

CALL ERRORGZ2,KOML,KOMZ? -—----—— 

RETURN 

Eno 


COMPILER(FLO#ABS) 

INTEGER FUNCTION BITGET(ILOC.IPOS,1M@IOTH) 
ISTART#IPOS-IM@I0TH 
BIIGET@FLOLISTARI,IM@IDIH,ULOC) 
RETURN 

END 


COMPILER(FLOSABS) 

INTEGER FUNCTION BITPYUT(ILOCy»IVAL,IPOS) 
JLOC@ILOC 

DO 10 IMIDTH#1,36 

IF(IVAL GE. 2eefMIO0TH) GO TO 10 
IBIT#{|POS-JMIDTH 

6o TO 15 


nnn { Serene! | A at passione . : = 


ioe 
ite 
12° 


is 


FLOCIBIT,IM@IOTH,JLOCD@IVAL 
BITPUTeJLOC 

RETURN 

END 


AUKIO 
RICH 


RICH 


AUKIO 
AUALO 
AUKIO 
AUALO 
AUKIO 
AUXKIO 
AUKIO 
AUALO 
AUKIO 
AUxZIO 
AUXKIO 


AUKIO 
AUKIO 
AUKIO 
AUKIO 
AUKIO 
AUKIO 
AVRIO 
AUKIO 
AVALO 
AUKILO 
AUKLO 


AULIO 
AUKIO 
AUKIO 
AUKIO 
AUKIQ 


AUKIO 
AUKIO 
AUKIO 


AUKIO 


AUKIO 
AUXAIO 


NN 


1s SUBROUTINE BLKSTR 
ze COMMON A( 1326) p0(S00) p1DTBL(8 +500) pINITID(3) LASTID(3) sISRCH(3) 5 
3e © UPTRIN SM, JTYPsLSTART N2pI1FNCNM,LOGIDNXTID,IOTYPyNIDyLOC, 
_4e _2 LTYP,ITYP,IBLKOT,MODE,IERR,IDES Z 
Se COMMON/FUNC/IFNCRA(S,17) pMARGS,»IARGS(50) »FNCLOC(S) »NFUNC 
Peery wee ___ COMMON/LIST/NLIST »NINTFC,ISUBLT(3,200),»INTFAC (S00) 
Te COMMON/BASBLK/I BLOCK (2500) ,NBLOCK »NB,NBRNCH 
ee INTEGER BITPUT,BITGETFNCLOC ——— 
9e IF(MARGS .EQe 0) RETURN 
——— | DO 100 1#1,MARGS = a a 
tle 1OSTAT#2 
12° 1COL#18¢MOD(1-1,2)¢9 “ 
30 IvRe(lel)s2 
—__i4e CC OC SBI TGETIIARGSI TVR) ICOLL9) 1S a 
1Se NFNCSBITGET(IARGS(IVR) ,1COL¢3,3) 
eee! | i eae _JF(NFNC eEQ@e 0) GO TO 60 ee es A 
—1te— TLOCBFNCLOCINFNCT SS 
186 NARGSBITGET(IARGS(IVR) »1COL 9,6) Bee = 
198 INDEX=BITGET(I10TBL(3,1L0C),3609) 
200. IF(INDEX .€Q@- 0) GO TO 60 
2le IPTR#ISUBLT(3,1NOEX) +(NARG=11/4 
rt JVARSBITGET(ISUBLT(Z2,INDEX ) oN 4a) = 
236 ICOL#9¢MOD(NARG=1,4)08 
fay | | See ___IF(JVAR cFQe 1) I[COLs8 az Canam 
250 TOSTAT@BITGETCINTFAC(IPTR) ,1COL,2) 
260 KPTRE(NARGO7)/9 Le eae 
270 LEXPeBITGET(IFNCRA(NFNCsKPTR) »ICOLSi gt) 
280 IFCLOSTAT sEQ@e 2) GO TO 60 a 
296 IF(IEXP eNE. 0) GO TO 40 
__ ine _IFL{IOSTAT s£G@0 1) GO TO 60 
3ie 60 TO 80 
329 40 IF (BITGETCISUBLT(2,1INDEX),10.4) .NEs 0) GO TO 90 
330 INTFACCIPTR)SBITPUTCINTFAC(IPTR) y2,1COL? 
34 10STATa2 
350 60 NBLOCK®NBLOCKs1 
ee. || RN tT ae | 
37e IF(IOSTAT .€Qe 2) GO TO 100 
__3ge AO NBLOCKSNBLOCKeL —— 
390 IBLOCK (NBLOCK) #1000¢L0C 
4060 @o TO 100 
41e¢ 90 CALL ERROR(S5,NARG,KOM2) 
___42e 3.90 CONTINUE z ee acre oe a 
430 RETURN 
“40 END 
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le SUBROUTINE BUILD BUILD 2 
ze COMMON A(1326),0(500) ,LOTBL(8,500) pINITIO(3) ,LASTID(3),1SRCH(3), RICH 2 
je © JPTRNeM,JTYPSLSTART »N2Z,1FNCNM,LOGIDNXTID,IDTYP,NID,LOC, 
qe UT YP AITYP,IALKDT MODE, ITERR,IDES — RICH 4 | 
Se COMMON/LNPOUT/NCALL IN, LOP BUILD 4 
be INTEGER A,B. BLANK BUILD 5 
Te COMMON/WASTE/B(72) 
= ae DATA BLANK/IH /,1CE/IHC/ Se a=) BUILD 7 
Je IERR#=O BUILD 6 
10¢ NFIRST#I 2 i ee 
lhe NCONTUSO BUILD 10 
12e NCALL#NCALL#1 = : BUILD 11 
130 SO CONTINUE 
14e IF(NFIRST .sEQe fb eANDe NCALL oNEs 1) GO TO J} BUILD 13 
1Se CeeeelF UNIVAC 1108 = PLACE A *C* IN COLUMN 1 OF NEXT TWO CARDS CH34 21 
dee = CORR EAD ING HOO) (BET) ated s72) a 
17e c IF(EOF(IN) eNEs OF GO TO 10 
18e CoeselF COC 6700 - PLACE A *C* JN COLUMN | OF NEXT CARD 
198 READCIN,TO0,ENDsIO) (BUTI ,Tet,72) 
200 2 100 FORMAT(72aA1) a 
21e 1 CONTINUE i 
220 IF(NFIRST .EQe 1) GO TO 2 
230 IF(B(h) e€Q. ICE) GO TO 9 
240 IF (8(6) eNEs BLANK «ANO» B(6) .NE~e 0) GO TO 6 
2Se Go To 9 rs 
260 J 2 GONWENGE. : 
27° 00 3 Ieals72 ite a er Se 
286 ACT)=B(1) 
296 3 CONTINUE 
300 NFIRST#O 
3ie NCHAR#72 
32e 2 Go TO so. 
336 & NCONTUSNCONTUCL SE eS eae 
34e IF(NCONTU oLEe 19) GO TO 7 
i 350 IERR#1 
f doe CALL ERROR(4,KDM1,KDM2) os 
37° RETURN 
38¢ 7 CONTINUE _ 
396 00 8 I81+66 
406° 8 A(NCHAR4I)#B( 146) 
4le NCHARSNCHAR466 
420 GO TO 50 
430 10 TERR#2 
440_ 9 CONTINUE en 
4Se NeNCHAR 
460 RETURN 


47¢ ENO 


10 


{ 
' 
‘ 


te COMPILER(FLDSABS) 


2e SUBROUTINE CAALISTR,MSTR,ID) 

Te DIHENSTON ISTR(6) = - ——— 
| 4e IF(MSTR +¢GT.o 6 eANDe ITYP oNEo 28) CALL ERROR(6,KOM1,KOM2) 
. Se losin 
f be DO 20 I=#1,MSTR 

Te Te1Tsee(le1) 

Be ICHARSFLD(0,6,1STR(I)) 

—__ ie 79 FLOUR Eo, IDi=ICaaR = Ss 
i 10¢ RETURN 

f ———_ Le END = 

I 

/ 

| 

| 

} 

| ——"Te ~~ “SUBROUTINE CATCISTR,MSTR,INTVAL) 

J —2€ DIMENSION [STR(IO) = = 

3e INTEGER BITGET 

| 4e _____ UF (MSTR 2GTs 10) CALL ERROR(3sKOML.KOMZ? poll aaah 

Se INTVAL#®0 
i s 
| Je INT@BITGETCISTR(1) 6,6)°48 
ge IFCINT sEQ@. QO) GO TO 10 ae fe a 

9e INTVAL@INTVAL*INTO1Oee(MSTR=I? 
ge 10 CONTINUE — pe aE ee ee a 
| Ibe IFCINTVAL oGTe (2ee31-1)) CALL ERROR(3,KOMI,KOM2) 

i, 12¢ RETURN = eee 


END 


--*- 


- . 
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le SUBROUTINE CALL CALL 2 


2° COMMON A(1326),0(500),1O0TBL(8,500) ,INITIO(3) LASTIO(3),1SRCH(3), RICH 2 
3e © JPTR ANIM, ITYPALSTART sNZ2aTFNCNMLOGIOINATIOSIDIVPsNIO LOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IDES RICH 4 
ge COMMON/STRING/NIYPE,NSTR.STR(SOO) 2 See es 4 
oe COMMON/LIST/NLIST,NINTFC,I1SUBLT(3,200),INTFAC(SOO) 
Te DIMENSION IALPH(4) 
Be INTEGER BLANK ,BITPUT,BITGET 
ge DATA CLALPH( TD), Teh yd ZINC, HA, IHL, IHL ae = a = JCAGL ae. 
10e DATA LPAR/IH(/,BLANK/IH / 
lie 00 S 181.4 CALL 14 
i2e IF(NEXT(JPTR) eNEs TALPH(1)) GO TO 50 Cane a5 
i3e S CONTINUE CALL 16 
l4e IPTR#JPTR 
ise 7 CAGE GHEE ee = Per ——_ = a) ee) 
160 IFC UTYP eNE.« 2) GO TO 50 CALL 186 
17e IF(NKTID .EQe TFNCNM) CALL ERROR( LO NXTIO,KOMI) 
ge CALL SEARCH Cate 20 
190 IFC ISRCH(L) cEQe 1) CALL ERROR(24,NXTI0,KOM2) 
20¢ IF(ISRCH(2) .E€Q@6 1) GO TO 6 CALL 22 
ate _ __—_IDT¥Pe2 ——— SS 2 ae ee Ae aeene rer. © |) Sey: See 
22¢ CALL STORE CALL 24 
23° LOC#NID Zs CALL 25 
24e @ CONTINUE CALL 26 
25¢ ILOCsLOC 
26 NXTSNEXT(UPTR) CALL 32 
27e IF {NAT s£Q. LPAR) GO TO 17. - = = 
266 IF (NXT «NEs BLANK) GO TO 50 CALL 34 
29° IF(BITGETCLOTBL(3,L0CI,18,1) sEQ@e 1) GO TO 20 
300 TOTBL(3,LOC)#BITPUT(TOTBL(3,L0C),1,18) 
jie 0O 10 T*t,NLIST 
32¢ IF CTOTBL(1,LOC) «NEw ISUBLT(1,1)) GO TO 10 
ase IDTBL(S LOC) #BITPUTLIDIBL(3sL0C)s1536) — = ———_ — 
34e LISTLC#! 
3Se GQ TO 22 = 
360 10 CONTINUE 
37e NLIST#NLISTol = 
38¢ ISUBLT(EsNLIST)#IDTBL(1,LOC) 
ave TBE CD LOCDSBILIPUTLIDIBL(D,LOC) sNLISTs36) —— = 
400 CALL ERROR(52eKOM1 ,KOM2Z) 
41e RETURN : == 2 2 = 
420 20 LISTLC™BITGETCIOTBL(3,L0C),3659) 
430 22 CONTINUE ee ee ee es fess ed 
44e IF (BITGET(ISUBLT(2,LISTLC) 1656) eNEe OF CALL ERROR(26,K0M1 ,KOM2) 
eee ___RETURN : 3 2 3 = 
460 17 JPTREIPTR 
47¢ NTYPEsI pe het : = Sa _ ve 
480 CALL EXPR CALL 69 
490 CALL PARSE 4 Se ____ GALL 70 
5o0e CALL FNCSTR CALL 71 
aca ES : = CALL BLKSTR ee 
S2e 47 IF(MODE eEQ. 1) GO TO 48 
Sie LOC#sILOC a aes 2 Z 
S4e INDEX#BITGETCIOTBL(3,L0C),36,9) 
SSe KLAS#BITGET(ISUBLT(2,INDEX),10,4) 
S6e IF(KLAS e€Qe 1 ORs KLAS cEQe 2) CALL CALL2 
ee RETURN aaa = 
SBe 48 JPTREIPTR=1 
59° CALL CNVRT 
60¢ RETURN CALL 96 
é1e SO CALL ERROR(7,KOML,KOM2) == 
62e RETURN CALL 100 
ee EOE . CALL JO) 


te zs SUBROUTINE CALL2 CALL2 2 
ze COMMON A(1326),0(500),f0TBL(8,500),INITIO(3) .LASTIO(3),ISRCM(3), RICH 2 
ae © JPIR NM, JTYPsLSTARTNZ2,1FNCNM,LOGIO,NATIO,IDIYP,NIOLOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IDES RICH 4 
Se INTEGER A,0,COMMA,RPAR CALL2 5 
6e INTEGER BITPUT,BITGET CALL2 6 
eats DIMENSION IALPH( 13) =f Et = CALL2 7 
Be DATA RPAR/1H)/,COMMA/IH,/ CALL2 8 
ve DATA CTALPHCL dale bal 3dDZIHCo THA IHL se TML a IM ZINR eT HOE SG LMCA IMM, GALL2 9& 
10e 1 THK SIH stHts CaLL2 10 
lhe 00 1S Jel,i3 CALL2 It 
ize KaJsrs CALL2 12 
S— : == ___ ACK) *1LALPH() ae CALL2 13 
i4e 15 CONTINUE CALL2 14 
ise 0O 20 I*1,6 CALL2 15 
lée KKaidedel CALL2 16 
i7e A(KK-3)81H1 CALL2 17 
16¢ A(KK=2) 810HH CALL2 16 
a) IPOS#6e] i ccspacnae Slaventegeneetnem ae = is : CALL2 19 
20¢ IVL#BITGET(IOTBL(1,L0C),1P0S,6) 
zie A(KK=1)*BITPUT(O,IVL,6) CH33 2 
22e IFCIT eEQ@e 6) GO TO 25 CALL? 22 
23¢ 20 A(KK)=COMMA CALL2 23 
24e 25 AC(KK)SRPAR CALL2 24 
ee EE ——— ee CALL2 25 
26e RETURN CALL2 26 
27e END CALL2 27 
— te .  SUSRUOUFINE CHEESY a <a aa CHI4Y 36 
2e COMMON A(1326),0(500) ,1DTBL(8,S00) ,INITIO(3) ,LASTIDO(3),1SRCH(3), RICH 2 
3e © SPTRIN SM, ITYP,LSTART »NZ2,1FNCNM,LOGID NATID,ILOTYP,NID,yLOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,ITERR,IOES RICH ~ 
Se OIMENSION IQUIV(100) CHKLISTS4 
oe naan EQUIVALENCE CIQUIV( RD ALIONDD <a = 
7e INTEGER BITGET CHKLISTS 
6e NQUIVsO CHKLIST6 } 
9e DO 30 LOCeal,NIDO CHKLIST7 7 
10¢ TOTBL(8,L0C)#0 
the IF(BITGETCIOTBL(3,L0C),14,1) «EQ. 1) GO TO 20 CHKLISTS 
ze CT (BA TGET(IOTBL U3 LOC) a1ba1) eEQe J) GOTO GS CHKLISTY 
t3e IFC BITGET(IOTBL(3,LOC),12,1) cEQe 1) GO TO 15 
L4e GO TO 10 CHKLISI2 
ise S IOTBL(8,LOC)#1 CHKLISI3 
l6e 10 IF(BITGET(IOTBL(3,LOC),: 7,8) eNEo 1) GO TO 30 CHKLISI4 
17e NQUIVSNQUI Vel CHKLISIS 
18e CF AUNQUIV GT. 100) GO TO 60 a aS ae 4 — 
19e TQUIVINQUIV) ®LOC CHKLISI6 
20¢ GO TO 30 " CHKLISI7 
21e 1S IF(CBITGET(IOTBL(3,L0C),15,1) e&Q- OF GO TO 30 
22¢ 20 IDTBL(6,LOC)#1 CHKLISIB 
236 30 CONTINUE CHKLISI9? 
z4e ____IFINQUIV ,EQ@e QO) RETURN = . wee Si) 
2se 00 SO Ji, NQUIV CHKLIS21 
260 NXQVSIQUIV(Y) CHKLIS22 
27¢ 35 NXQV#IOTBLI(7,NXQV) CHKLIS23 
Pee: | ees (20 ee ee er = __._ CHKLIS24 
296 IF CTOTBL(B,NXQV) «EQ. OP GO TO 35 CHKLIS2S 
ioe 1QVeNKQYV CHKLIS26 
3ie KTYPESBITGET(IOTBL(3,1QV),1053) CHKLIS27 
32 40 NXQVSIOTBL(7,NXQV) CHKLIS28 
336¢ IF (NKQV cEQ@e I1QV) GO TO 50 CHKLIS29 
oe |) JEL BIIGETLIOTBLII3,NXQV),10,3) -NEs KIYPE} GO TO 49 CHKLIS3I0 
35e 1OTBL(B,NXQV)@1 CHKLIS3I 
368 GO TO 40 CHKLIS32 
37e 50 CONTINUE CHKLIS33 
384 RETURN CHKLIS34 
396 60 CALL ERROR(94,10M1,10M2) 
en |: | enemas fails : : i or — 
41e END CHKLIS3S 


“ . , — ee 
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le SUBROUTINE CLASS CLASS 
2e COMMUN AC 1326),0(500) ,10TBL (8,500) ,INITIO( 3) LASTIO(3),ISRCH(3), RICH 
3e © JPTRIN SM, JTYP,LSTART N2,1FNCNM,LOGIO,NXTIO,IDTYP,NID,LOC, 
4e 2 LTYP.ITYP,IBLKOT,MODE,IERR,IDES RICH 
Se DIMENSION KALP(48),KSUC(4B8) ,KFAL (48) ,KOEC(10),KF (8) CLASS 
oe INTEGER A CLASS 
Te OaTa KOEC( 1) ,KOEC(2),KDEC(3).KOEC(4),KDECIS), CLASS 
Be bo KOEC(6),KDEC(7) .KOEC(8) KOEC(9) .KDEC(IO) CLASS 
9e 2 SUHOSIML, LHZ2, THI, THY, IHS LHOVIH7, THB, IHS CLASS 
10¢ OATA KFCHD SKF C2) KF C3) KE C4) KF (CS) KF CO) KEL 7) KF GB? CLASS 
lhe 1 JIMF THU, LHNG LHC STMT, THEY THO,LHNS CLASS 
12¢ DATA KC.KBLNKsKLPARGKRPARLKE@ /1HC,IH sii IH) sine CLASS 
I3e DATA KHsKSLSH KASTK,KZEROGKCMA /LHHeIH/ yl Hey IHOsiH,/ CLASS 
i4e OATA KALP( Ld) sKALP( 2)4KALP( 3).KALPC 4) IHL SIHP ep LHNGLHG/ CLASS 
1Se DATA KALP( S),KALP( 6),KALPC 7),KALP(C 8) SIHO,IHT,IHO,IH(/ CLASS 
ltée DATA KALP( G)sKALPCAO)DsKALPC ILD SKALP(A2) SEHC,THASITHOSIHN/ CLASS 
Je DATA KALPC13) pKALPUDY) »KALPU15) »KALPUC16) /THM,IHM,IHP,LHR/ CLASS 
ife DATA KALP(17).KALP(18),KALP(19)  KALP(20) /IHE,LHA,IHDO ILS — CLASS 
19e DATA KALP( 21) ,KALP(22),KALP(23),KALP(24) /EHT, THM, IHF THOS CLASS 
20¢ DATA KALP (25) ,KALP (26) ,KALP(27)sKALP(28) /IHU,IHOSIHISLHAS CLASS 
216 DATA KALP(29) sKALP(30),KALP(31),KALP(32) /EHO,ITHU,LH®,LHS/ CLASS 
22e DATA KALP (33) sKALP (34) ,KALP(35) KALP(36) INTs IHU, IHEs IHN CLASS 
236 OATA KALP(37),KALP(3B),KALP(39),KALP(4O) /IHD,IHF THX, LHQ/ CLASS 
24e OATA KALP (41) sKALP(42),KALP(43),KALP(44) /IHB,LHASIHLSLHA/ CLASS 
2Se DATA KALP (4S) sKALP (46) ,KALP(47) ,KALP(4BI/IHL LHP yLHRyLHOS CLASS 
26¢ DATA KSUC( 1) 6KSUCE 2),KSUC( 3),KSUCL 4) 4 2, -be-1%, Ss CLASS 
276 OATA KSUC( S),KSUCK 6),KSUC( 7),KSUC( 8) 4 6, Ty 8y =5/ CLASS 
288 DATA KSUCE 9),KSUC(IO) ,KSUCLII),KSUCLI2Z) 4 10, =B, 42, 224 CLASS 
290 DATA KSUC(13),KSUCUI4Y) »KSUCIIS) KSUCKI6) 4 14,°255-22, 177 CLASS 
300 DATA KSUC(17) ,KSUCLIB) .KSUCLI9),KSUCI20) 4 18, I%y-b4,-20/ CLASS 
3he DATA KSUC(21) sKSUC(22),KSUC(23),KSUC(24) 4 =9,-135 245-287 CLASS 
32e DATA KSUC(2S) .KSUC (26) .KSUC(27) ,KSUC(28) S931, 275-24 _-27/4 CLASS 
33e DATA KSUC(29),KSUC(30),KSUC(3E)KSUC(32) 4 30-21-12, 337 CLASS 
34a DATA KSUC(33),KSUC(34),KSUC(35),KSUCI36) /-10,°30, 36, 374 = CLASS 
356 OATA KSUC(37) sKSUC(3B8) KSUC(39) KSUC(4O) / 38,-155°34,-26/ CLASS 
3oe DATA KSUC(44),KSUC(42) ,KSUC(43) ,KSUC(44) 4 4245-44 5-29, 924 CLASS 
37e DATA KSUC(4S) sKSUC(46) pKSUC(47) »KSUC(4YB) £-23,47548,-°32/ 
38¢ DATA KFAL( 1) ¢KFAL( 2),KFAL( 3),KFALE 4) 4 4, 34°36, % CLASS 
390 DATA KFAL( S)yKFAL( 6),KFAL( 7),KFAL( 8) /-36,736,-36, =3/ CLASS 
Se DATA KFAL( 9) ,KFALLIO) -KFAL(IS) ,KFALLI2) / to, 14,036, 134 CLASS 
41e DATA KFAL( U3) KFAL C14) KFALCIS) ,KFALCL6) 4-36, 155-36, 237 CLASS 
420 DATA KFAL( 17) ,KFAL(18) »KFAL(I9) ,KFAL(20) 4-36, 21, 20,-36/ CLASS 
430 DATA KFAL(2Z21) ¢KFAL( 22) ,KFAL(23),KFAL(249) 4 224-36, 26,5 25/ CLASS 
44e DATA KFAL(25) oKFAL(26) .KFAL(27),KFAL(28) /-36, 31,5 28, 29/ CLass 
4Se DATA KFAL( 29) ¢KFAL (30) ,KFAL( 31) ,KFAL(32) /-36,-36, 32, 35/ CLASS 
Se a DATA KFAL(33),KFAL(34),KFAL(35),KFAL(36) / 34,-346, 41, 397 oe ASS. 
47¢@ OATA KFAL(37) ,KFAL(38) pKFAL(39) sKFAL(4YO) /-36,718, 40,-36/ CLASS 
4Be DATA KFAL(41) sKFAL(42),KFAL(43),KFAL(44) / 44, 434-36, 45/ CLASS 
490 DATA KFAL (4S) sKFAL (46) pKFAL (47) gKFAL(4B)/S 464=365-365-36/ CLASS 
SOe LTYP#O CLASS 
Sie IPTR#7 CLASS 
et ~S CONTINUE an es SS ets SN 
Sie JSAVE @KBLNK CLASS 
S4e JSa@n0 CLass 
sse 1S#=s0 CLASS 
Soe JEQa0 CLASS 
S7e JCMA*O CLASS 
wes | | ee _ AHOLL «OD — = pc i = an eee ——_ SLASS 
S90 00 26 J*IPTR,N CLASS 
60¢ JCHBALS) CLASS 
61e IF(UCH e€Q@+ KBLNK) GO TO 26 CLASS 
62¢ 6 IF (JHOLL oLEe OF GO TO 12 CLASS 
63¢ 7 00 6 Lel-to CLASS 
a es IF(UCH s£Q, KDEC(L)) GO TO 10 ao — — = LASS 
6Se 8 CONTINUE CLASS 
4ae IFC JHOLL .LEe £1 GO TO LL CLASS 
67¢ 9 IFC JCH*KH) 11532511 CLASS 
66e 10 yvHO'L~JHOLL 4] CLASS 
69e GO TO 25 CLASS 


CLASS. 


The 12 IFCICH «EQ. KLPAR) GO TO 20 
72e 13 JF(JCH «EQ@e KRPAR) GO TO 18 
730 14 TFCJCH e€Q. KCMA) GO TO 22 
74e 15 IF(JCH sEQe KE@) GO TO 23 
7Se 16 IF(JCH «€Q. KSLSH) GO TO 2) 
1b 12 1Ft4cH = KASTK) 25,21,25 
77e 18 JSWeJSW-1 
78¢ IF(JSm@ eGT. QO) GO TO 25 
798 19 1Sast 
B80e GO TO 26 
Ble 20 JSWaJSWel 
820 21 JHOLL#1 
B30 GO TO 25 
B4e 22 IF (USM) 30,3021 
BSe 23 IF (USM «GT. QO) GO TO 32 
a. {een UE a ees 
87e 25 IFC ISW «GT. QO) GO TO 27 
8860 26 CONTINUE 
890 GO TO 28 
900 27 JSAVESJCH 
Fle JPay 
— 328 28 IF(vEQ@ eles Oo) GO TO 32 
93e 29 JTPe#l 
94e GQ TO 55 
95e 30 JCMAs) 
260 IF(JEQ@ sLE« O) GO TO 32 
97e 31 JTPe17 
——e —— 60 16-55 n Se eS 
990 32 Jel 
10de [SasIlPTR 
ole 33 JCHSACIS®@) 
102¢ IFC JCH e€Qe KBLNK) GO TO 37 
103¢ 34 IFC JCH e€Q6 KALP(J)) GO TO 36 
1o4e 35 J#KFAL(J) 
sOSe IF (J) 39,39,34 
106¢ 36 JeKSUC(V) 
1o7e IF(JU «LEs 0) GO TO 39 
108¢e 37 ISW=]Swel 
109e IFC ISW eLE. N) GO TO 33 
110¢ 38 JCH#KBLNK eee ee 
bile GO TO 35 
by2e 39 JTPenwyJ 
li3e IFC JUTP=3) 55,45,40 
tise 40 IF (UTP-6) 55,43,41 
ise 41 TFCUTP ol Te 19) GO TO SS 
a PERE 92 LFLJTP = 23) 427,47,55__ 
1i7ve 43 00 44 L#1,10 
11ee IF(JSAVE 4EQ- KOEC(L)) GO TO 5S 
119¢ 44 CONTINUE 
120¢ LTyPs9 
t21¢ JTPwlé 
= — kAZe IPTR#JP 
t23¢ GO TO S 
1240 45 IF(JCMA oLE« O) GO TO SS 
125¢ JTP 84 
126¢ GO TO SS 
t27¢ 47 Lell 
as le _ GO TO 82 = = 
129¢ 46 Lelel 
130¢ IF(L «GTe N) GO TO 55 
i3ie 49 IFCA(L) «EQe KBLNK) GO TO 48 
132¢ SO IF(A(L) «&Qe KFC ISW)) GO TO 53 
13360 St IF(ISW «.E@. 1) GO TO 48 
>) $2 1Swe1 
135¢ GO TO SO 
136¢ S3 [SWelSmel 
i37¢ IF (ISW eLE. 8) GO TO 48 
138e¢ $4 JIP#31 
1396 SS ITYPsyTtP 
140¢ RETURN 
i4te END 


CLASS 70 
CLASS 71 
CLASS 72 
CLASS 73 
CLASS 74 
CLass 75 
CLASS 76 
CLASS 77 
CLASS 76 
CLASS 79 
CLASS 60 
CLASS 61 
CLASS 82 
CLASS 83 
CLASS 64 
CLASS 89 
CLASS 66 
CLASS 67 
CLASS 686 
CLASS 89 
CLASS 90 
CLASS 91 
CLASS 92 
CLASS 93 
CLASS 94 
CLASS 95 
CLASS 96 
CLASS 97 
CLASS 98 
CLASS 99 
CLASSIO0O 
CLASSIOIL 
CLASSIO2 
CLASS103 
CLASSIO4 
CLASSIOS 
CLASSI06 
CLASS107 
CLaSsi08 


_ CLASSIO? 


CLASSIIO 
CLASSINI 
CLASSI12 
CLASSII3 
CLASSII4 
CLASSIS 
CLASSI16 
CLASSI17 
CLASSII8 
CLASSIINSP 
CLASS1I20 
CLASSI21 
CLASS1I22 
CLASSI23 
CLASSI24 
CLASSI25 
CLASSI26 
CLASS127 
CLASSI28 
CLASSI29 
CLASS130 
CLASSI31 
CLASSI32 
CLASSI33 
CLASSI34 
CLASSI3S 
CLASSI36 
CLASS137 
CLASSI386 
CLASS139 
CLASSI40O 


SUBROUTINE CMPARE 
OIM* NSION TROLCK(100),1SUP(100) 
REWIND 3 
NSU=6 
NC=- 
00 © 1=1,10C¢ 
READ(D¢END=7) ISUB(T) 
NSUP=NSUB AL 
CONTINUE 
IF(NSUB .EQe 3) PETURN 
00 4G L=1,12 
MOD==L-1 
NROLL=C 
00 1€ [=1,105 
REAIN(3,END=15) IROLCK(I) 
NROLL=NROLL #1 
10 CONTINUE 
15 IF(NROLL «EQ. 9) GO TO 35 

00 3¢ J=1»sNSUB 

00 2C K=1,NROLL 

IFC(IROLCK(K) «£9. ITSUB(J))? GO TO 30 
20 CONTINUE 

NC=1 

WRITE (6925) ISUB(J) MODE 
25 FORMAT(/29X,12H SUBROUTINE 4A6,53H WAS NOT CALLED IN THE ROLL CALL 

* MONE FOR MODE INOEX 413) 
30 CONTINUE 

GO TO 40 
35 WRITE (6,36) MOODF 
36 FORMATI/32X,65H NO SUBROUTINES WERE CALLED IN THE ROLL CALL MOOF F 

*OR MODE INDEX 413) 

NC=1 
40 CONTINUE 

IFONC .EQ. 0) WRITE (655C) 
50 FORMAT(/41X%,50H ALL SUBROUTINES WERE CALLED IN THE ROLL CALL MODE) 

RETURN 

END 


vw 


le SUBROUTINE CNVYRT CNVRT 2 


2e COMMON ALE326),D04500),1D0TBL(8sSO0O),INITIDOI3),LASTID(3),I1SRCHI3), RICH 2 
3e @ JPTRIN M,ITYPLSTART NZ, 1FNCNM,LOGID »NXTID,IOTYPyNID,LOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERK,IOES RICH 4 
$e COMMON/STRING/NTYPE ,NSTR,STR(SOO) . CNWRT 4 
6e DIMENSION 10P(8),1LOG(7,2),JLOG(2,3),1FUNCI(O),1FUNC2Z(6)5 CNVRT 6 
Je t ITFUNC3¢6> CNVRT 7 
Be INTEGER A,STR,D,OECPT 
9e INTEGER BI TPUT,BITGET CNWRT 9 
ioe DATA CLOP( IID, TSL,BISIHt LH, IH/ LHI, LHI IH, Ine tHe CNVRT 10 
ee eS = DATA CELLOG(Laddadebs2daloeds7dZINL a dHT sd HE HG IHT,INHG, IME, CnvekT Ul 
i2e 1} FHE,IHQ,dHN, THE, IHO, IHR ‘ CNWRT 12 
I3e DATA (UILOG CL add) pJed yd) pled y2)/71HA, PHN, THOSIHN,IHO,IHTS CNVRT 13 
l4e DATA CIFUNCICID Let 6) 7THQ,IHE THR, THES THAYIHL/ CNWRT 14 
1Se OATA CIFUNC2ZIF) aleba bd JIHQrIHE a THD a LHP atHRy HES CNWRT 19 
bee DATA CIFUNC3ICT) Leb eS) /THQSIHT IHC, ILHOSTHM,IHPS CNWRT 16 
i7e OATA OECPT/IHe/ 
16e 00 S JelsJPTR 
ive S DiJsrealJ) 
20¢ JaJPTR 
——— 2 &. = OO 100 Kmei,NSTR CNvRI 27 
2ze TFCSTRIK)D «GTe Gi GO TO 40 
230 00 10 Is1,8 CNWKT 28 
24e IFCSTR(K) «NEo ~1) GO TO 10 CNVRT 29 
2Se OtsebdsLOP( I) 
260 N31 CNWRT 31 
a LE41 .NEs 8) GO IO 300 CNYHT 32 
28¢ Ot se2d)10P (1) 
29¢ N3s2 CNWRT 34 
30¢ GO TO 100 CNVRT 35 
3le 40 CONTINUE CNWVRT 36 
32e DO 15 Iel,7 CNVRT 37 
Se __Lalea : = = —_—_CnhvkTt 38 
34e IF(STR(K) .NEe -L) GO TO 15 CNVRT 39 
3Se DidJel)=OECPT 
36¢ O(JeZ2)STLOGI1 st) 
37e O( J+J PILOG(1.2) 
380 O(J*4) @D0ECPT 
= tS. = CNWRI 44 
40° Go TO 100 CNWRT 45 
4le 1S CONTINUE CNVRT 46 
42¢ DO 20 I=1,2 CNVRT 47 
43¢ Lelels CNWRT 48 
44e IFC(STR(K) eNEe -L) GO TO 20 CNWRT 49 
45@ See Ss) A: ———= 
46e OC Ue2BJLOGII yt) 
47¢@ Dide3eJLOG(1,2) 
4Be O(J*4) sJLOG(1,3) 
42@ Ol(4U+S)"D0ECPT 
Soe N305 CNVRT SS 
Sie eS ———E = <i ee = = CNWRT S6 
S2e 20 CONTINUE CNVRT 57 
Sie KL*l CNYRT 99 
S4e IF(CSTRIK) «EQe <0) KLa2 CNVRT 60 
Sse TF(STR(K) sEQ@e -10000) KLe4 CNYRT 61 
Sée IFCSTRIK) «€@e -20000) KL#3 CNVRT 62 
Sle __ GO TO(110,25,30,35),KL — — —— CNWRT 63 
S6e 25 00 27 [81,6 CNVRT 64 
S9e OtJeLeIFuNCitl) 
60¢ 27 CONTINUE CNVRT 66 
ole N326 CNVRT 67 
62¢ Go TO 100 CNVRT 68 
ee 30 00 32 Iel,4 — — . — —— CNYRT @? 
64e Ol uelpwIFUNC2¢1) 
65¢ 32 CONTINVE CNVRT 71 
66e N3e6 CNVRT 72 
67¢ Go TO 100 CNVRT 73 
680 35 DO 37 Ieb,6 CNVRT 74 
—__ 498 ot FUNC ZL) — — - 
70¢ 37 CONTINUE CNVRT 76 
Tie N3s4 CNVYRT 77 
17 


+ 5 mn a a eonipiong “ ee ae = 


72e GO TO 100 CNVRT 786 
730 40 IF(STR(K) «LT+e 1000091) GO ro 119 an CNVRT 79 
74e N3eSTRIKIsS16E6 eNVRT 60 
7Se NLOC#(STR(K)/10000)e10000 CNVRT 81 a 
7oe JPTRESTR(K)=NLOC CNVRT 82 ¥ 
77° KLOC#STRIK)=N3016E6 CNVRT 83 
7860 IF(KLOC «lL Te 400000 .ORs KLOC «GT. 500000) GO TO 50 CNVRT 84 
ee THe s(KL0C-499000)/10000 =. iets 
806 IF(THL 2€Q. 5) GO TO 60 
Ble 00 45 I=1,N3 CNVRT 65 r 
a2 Ol Uel)eNEXT(UPTR) 4 
B3e 4S CONTINUE CNYRT 67 
B4e Go TO 100 CNVR: 66 
——__ 8S¢ _ __sss $0 )0 $5) fel N3 = — —— == 3 = 2 = CNVYRT 89 
Bbe IPOS=6el! CNVRT 90 
_B7e ICHARSBITGET(IDOTBL(L,JPTR)I,IPOS,4) CNYRT 91 
Be 5S Olvel)sBITPUT(O,ICHAR,6) 
age GO TO 100 
900 60 KPTR®UPTR=1 
a ee, ere xs <s See eerie ee 
920 65 Di Jel BAIKPTReI) 
930 100 J#Ju+Nn3 CNVRT 93 
94e NeJ 
9Se 00 10S 1#1,N 
960 10S Atl)#O0(1) 
97e RETURN ——— = CNYRT100 
980 110 CALL ERROR(23,KOM1,K0M2) 
99¢@ RETURN CNVRTIO2 
100¢ END CNWRTIO3 


le SUBROUTINE COM COM 2 
ae COMMON A(13261,0(500) sLOTBL(Gs500) INITIO 3 LASTID(31,i1SKCHI 9), RICH 2 
je © JPTRINM,JTYP,LSTART sNZ2,1FNCNM,LOGID,NATIDO,IDTYP,NID,LOC, 
4e 2 LITYP.ITYP,IBLKDT,MODE,IERR,IDES RICH 4 
Se DIMENSION I101M(3),TALPH(6) COM 4 
oe INTEGER SLASHsCOMMA BLANK .A,RPAR COM S 
7e INTEGER BITPUT,BITGET com 6 
ge DATA (IALPH(1).1#1,6)/1HC,1HOsTHMAIHMSIHOSIHNS = CoM 9 
9e DATA SLASH/IH//,COMMA/IH,/+BLANK/IH /yRPAR/IH)/LPAR/SIHOS COM 8 
10¢ 00 10 I#1,6 com 9 
lie IF (NEXTCJPTR) eNEs TALPH(1)) GO TO 60 COM i0 
12e 10 CONTINUE COM Li 
13e IF(NEXTCJPTR) «€Q. SLASH) GO TO 15 CoM 12 
i4e JPIR2IPTR=1 es a COM 13 
1Se 12 NXTIO=#BLANK COM 14 
1oe¢ GO TO 20 COM i) 
17° 15 CALL GNLE COM 16 
1Be IF(ACJPTR=1) e£Q6 SLASH) GO TO 12 COM 17 
19° IF(UTYP eNEs 2) GO TO 60 COM 16 
20¢ IF(NEXT(JPTR) «NE« SLASH) GO TO 60 COM 19 
216 20 CALL COMSCH COM 20 
22e TFC ISRCH(3) eEQe 12 GO TO 25 CoM ral 
23¢ 1OTYPs3 COM 22 
24e CALL STORE 2 — = COM 23 Es 
256 ICMLOCENID COM 24 
260 GQ TO 27 COM 2s 
276 25 ICMLOCsLOC com 26 
286 LSTLOCmIOTBL(6,ICMLOC? COM 27 
29¢ 27 CALL GNLE COM 28 
30¢ IF(JTYP «NEe 2) GO TO 60 — Con: 29 
jie CALL SEARCH com 30 
32e TFC TSRCH(2) eEQe 1) CALL ERROR(LONXTIDsKOM2Z) 
33e IFCISRCH( 1) «€Q6 1) GO TO 28 COM 32 
34e 1IDTYPs) COM 33 
35e CALL STORE com 34 
Bee LOC#NID a en COM ‘ 
7 37e 28 IF(BITGET(IOTBL(3,LOC)I 12,1) ceEQe 1) CALL ERRORCI7sNATIDyKOM2) 
| 38¢ IF(BITGET(IOTBL(3,LOCIslOst) cE Qe 1) CALL ERROR(S3.NATIDsKOM2) 
390 1OTBL(3,LOC)SBITPUT(IOTBL(3,L0C),1516) COM 37 
; 40° IcmMsiZel com 36 
4he@ IF(NEXTOCUPTR) «NEw LPAR) GO TO 40 
: 42e IF(CBITGETLIDTBL(3,LOCIgist) eNEw OP GO TO 80 a 
43e I=0 
44e 35 Islet 
J 4Se CALL GNLE COM 41 
4he IF(JTYP eNEw S) GO TO 40 COM 42 
47° TOIM( TI #N2 COM 43 
4fe ai ICMSIZeICMSIZeN2 See =z COM 44 
49e TFUN2 GT, (2¢017-1)) CALL ERROR(8,KOME,KOM2) 
soe IFUN2 ohLEs OP CALL ERROR(8sKOMI,KDM2) 
- Sie IF CNEXTCJPTRE EQ COMMA) GO TO 35 com bi 
; S2e TF (AG JPTR=1) eNEs RPAR) GO TO 60 COM 48 
S3e KeNEXT(JPTR) com 49 
) —$4e DT BED aLOCDOBITPUTIIDIBLI3sLOC) stad) aa, Ce ee 
5Se IF(T 6GTe 3) GO TO 60 CoM Si 


Sé6e 
S7e 
Sbe 
Ss9e 
60° 
6le 
é2¢ 
é3¢ 
é4e 
6Se 
66¢ 
67e 
6Bbe 
b9e 
70¢e 
Tle 


gy 


73e 
T4e 
7Se 
768 
77e 
78e 
79¢ 
80e 


3U 
32 
34 
40 


45 
47 


so 


40 


a0 


IOTBL(3,LOC) sBITPUT(IDTBL(3,LOC),1y7) 

GO TO (34,32,30),1 

TOTBL(4,LOC) sSBITPUTC(IOTBL(4%,LOC),IOIM(3),36) 
IOTBL(4,LOCISBITPUTCIDTBL(4,LO0C),IDIM(2),18) 
TOTAL (3,LOC)#BITPUT(IDTBL(3,LOC),IOIM(1) 436) 
IFCITOTBL(S,ICMLOC) eE@-. OF GO TO 4S 
1OTBL(S,LSTLOC)#LOC 

GO TO 47 

1OTBL(S,ICMLOC) sLOC 
LOTBLOY,ICMLOC)SIOTBL(4,ICMLOC) +I CMSIZ 

TOTBL (46,1 CMLOC) =LOC 
1OTBL(6,LOC)#ICMLOC 

LSTLOC#LOC 

IF (ACJPTR=1)} e&€Q- COMMA) GO TO 27 
IF (AC JPTR=1) «NE« SLASH) GO TO 50 
IOTBL(S,LOC) #IOTBL(S,ICMLOC) 

GO TO 1S = i Sn Ss 
IF (NEXT(CUPTR) eNE« BLANK) GO TO 60 
TIDTBL(SsLOC)#IDTBLIS,ICMLOC) 

RETURN 


CALL ERROR(7,KOMISKOM2) 
RETURN 

CALL ERROR(I4,NXTID,KOM2) 
RETURN 

END 


COM 
Com 
COM 
com 
COM 
COM 
com 
com 
COM 
COM 
COM 
COM 
CoM 
COM 
COM 
COM 
COM 
COM 
CoM 


com 


CoM 


com 


S2 
$3 
54 
$5 
$6 
S39 
60 
ol 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 


73 


76 


le SUBROUTINE COMCHK 
ae COMMON A(1326) .D(500) sIDTBL (8.500) sINITIO( 3) sLASTIO(3),1SROHI3)S 
Je @ JPTRIN,M,JTYP,LSTART sN2,1FNCNM,LOGIO,NATIO,IOTYP,NIDO,LOC, 
4e 2 LTYP.ITYP,IBLKOT,MODE,IERR,IDES 
Se COMMON/LIST/NLIST,NINTFC,I1SUBLT(3,200),INTFAC(SO0) 
ée COMMON/GLOBAL/NBLK,NREF ,NSUBS sBLKTBL (200) ,EXTIBL(100),1S¥8S(100) 
Te INTEGER BITGET,CMBLK(2,20),TP,SZ,PREVTP,BLKITBL 
is INTEGER SESCOM(13),SESERR —————— es — 
oe DIMENSION ITPS(6),10R0(6) 
1Qe OATA LORDs142s5445346/ ; 
tie DATA SESCOM/4HCASE »3HINA,3HINB,3SHINC» 3HIOX,SHNPAGA,YHLINA,SHIOY, 
i2@ S SHNPAGY ,4HLINY,3HIOZ,SHNPAGZ,4HLINZ/ teks 
l3e SESERR#0 
l4e NSES#0 
ise ICTGR2*0 
14e IBLKSINITIO(3) 
i7e MODCLS#0 
188 LCZeBLIGETLIDIBL13,483436,93 = = 
19e TF(LC2 EQ. O «ORs IBLKOY «EQ5 1) GO TO 1 
2Q¢ MODCLSSBITGET(ISUBLT(2,L02),10,4) 
2le 1 TFC(TBLK «EQ@- OF GO TO 120 
220 IFCLIOTBL(4,1BLK) .EQ. 1H 2 GO TO 3 
Z3¢ LISTLC#BITGET(IOTBL(3,1BLK),36,9) 
poses fe KLASSBITGETLISUBLT(2,LISTLC),10,4) 
2Se ISZ#BITGET(ISUBLT(2,LISTLC),36,15) 
260 TFCLIOTBLL4,1BLK) .NE~ 152) GO TO 70 
276 Go To Ss 
280 3 IF (MODCLS .NEo 3 eANOe MOOCLS NEw 2) GO TOS 
296 IBNKSZ#®BITGETCISUBLT(2,LC2),36,15) 
—__—3oe —___________ LEI DI BL 14,1 BLK) .NE~ JLONKSZ) CALL ERRORISS,2m//,KON2) 
3ie S NBLOC#0 
320 1SumMso0 
33¢ NTP#O 
340 TP20 
35e ICOMST#IOTBL(S,1BLK) 
es —_LOcalcComsy = : =— _— 
37e 10 PREVTP#TP 
388 TFIBITGETCIOTBLI(3,LOC)d ,44,d) sEQs. 1) GO TO 4S 
390 TPel 
400 LFSTaBITGETLIDIBL(L LOC) 4 b56) 
4he IFCiFST eLEse 19 eANDe IFST «GEe 14) TRed 
ee ee GO TO 18 — - = 
43e 1S TPeBITGET(IOTBL(3,L0C),10,3) 
: 440 18 SZsl 
4Se NOIMSBITGETCLOTBLI(3,LOCI 1756) 
46e IF(NDIM «£Qe OP GO TO 22 
470 00 20 I=#1,NOIM 
4B¢ = Niie3¢(1/2) SS 
? 49e@ ICOL#I1Be(MOD(T,2)e1) 
soe 20 SZ#eSZeBITGET(IOTBLINM@sL0C),I1COL,I7) 
Sie 22 LFCTP «NEw 2 eANDe TP «NEw 3) GO TO 25 
S2e IF (MOD(ISUM,2) eNEo OICALL ERROR(H4,1DTBL(1,LOC)I,IDTBL(1,1BLK)?) 
Sje TSUM#ISUM+S2 
eet tT 25 ISUM#ISUMeSZ 7 a — 
Sse IFC IBLKOT cEQe 1 sANDse LORD(PREVTP41) «GT. LORD(TPe1)) 
S4e@ S CALL ERROR(SS,IOTBLI1,1BLK),KOM2) 
S7e IF(KLAS c€Qe 10 ORs LOTBL(1,IBLK) «EQe IH } GO TO 38 
SBe IF(KLAS se£Q@e 9) GO TO 35 
57e TFUKLAS «E£Q-e 7) GO TO 40 
a | an Aas SF = i tonsa — 
ole IF(TP «EQ, PREVTP) GO TO 3S 
42¢ LF{PREVTP sEQ@e O) GO TO 32 
636 00 30 Iel,NTP 
o4e IF(TP sEQe. LTPS(L)) GO TO 110 
65e 30 CONTINUE 
Seen 7 eee OH a 2 18 at | = — ee — — 
67¢ ITPS(NTP)aTP 


66¢ 


35 IFC LBLKOT .EQ@e t) GO TO 38 


ove IFC BLETGET(LOTBL(3,LOCI,I19,1) cEQe OF CALL ERROR(7S,10TBL(1,LOC), 
70¢ S$ KDM2) 

The 38 LOC#IOTBL(5,L.00) 

72e IF(LOC «NE ICOMST) GO TO 410 

730 GO TO 65 

74e 40 IFC TP e€@. PREVTP? GO TO 45 

7Se NALOCSNBLOCe)I 

7ae CMBLA(1LsNBLOC) TP 

77° CMBLK(2,NBLOC)#80 

76¢ 45 CMBLE(2sNBLOC)SCMBLKI(2,NBLOC)*SZ 

79¢@ IF CTOTBL¢CL,1 BLK) «NE. 6HSESCOM) GO TO 85S 

60¢ NSES#NSESe1 

Ble IF(NSES «GT. 13) GO TO 80 

a2e TFCLOTBLA(1,L OC) 2E@e. SESCOMINSES)) GO TQ 8S 
B3e BO SESERR#I 

B4e 8S LOCsSIOTBL(S,L0C) 

ase IF(LOC eNEs’ ICOMST) GO TO 10 

Boe IPTReISUBLT(3,LISTLC) 

ave NOPTREIPTRe(NBLOC#1)7/2 

Bee KOUNT#0 

age NGRP ®NBLOC 

gue DO SO L#IPTR,NDPTR 

vie 1cOLs0 

92e 00 $O J#i,2 

93e KOUNTSKOUNTeI 

940 IF(KOUNT .GTe NS8LOC) GO TO 45 

9Se IcCOL#ICOLeIS 

960 SZ=BLTGETCINTFAC(1),1COL,1S) 

978 $COL#ICOLe3 

78 Cee GET GROUP TYPE 

99@ TPeBITGET(INTFAC(I)D,ICOL,3) 
1o00¢ IFLTP saNEw GO) GO TO 48 
Ole CMBLK(2,KOUNTISCMBLK(2,KOUNTI<SZ 

io2e TF (CMBLK(2,KOUNT) 2EQe OF GO TO SQ 

1O3¢ IF (CCMBLK(2,KOUNT) «lL Te OF GO TO 9D 

1o4e KOUNT#KOUNT@<] 

10S5¢ NGRP@NGRP ot 

1Q6e¢ Go TO $0 

107e Coe CHECK INTERFACE DEFINITION FOR SIZE AND TYPE 
iO8e 48 TF (CMBLK(L,KOUNT) oNEo TP «ORe CMBLK(2,KOUNT) «NEo SZ) GO TO 90 
109e¢ SO CONTINUE 

1106 IF(NGRP oNEe BITGET(ISUBLT(2,LISTLC),6,6))? GO TO 9U 
itie 65 IBLK#IOTBL(2,I1B8LK) 
lize Go TO 1 
bide 70 CALL ERROR(SB,IOTBL( 1, IBLK),KOM2) 
tise GO TO 6S 
bise 90 CALL ERROR(S7,1O0TBL(1,IBLK),KOM2) 

116e@ GO TO 65 
ive 110 CALL ERROR(63,10TBLI(1,1BLK),KOM2) 

ilse GO TO 65 

119¢ Cee CHECK THAT COMMON BLOCK *SESCOM*® 15 WELL DEFINED 
120¢ 120 JFCICTGR2 «EEGs O eANDe (MODCLS cEQe I eORe MODCLS «EQe 2)) 
i21¢ S$ CALL ERROR(73,"0M1,K0M2) 

122¢ IF(NSES e€Qe OF GO TO 130 

123¢ IFCSESERR cEQe § ORs NSES ol Te 13) CALL ERROK(48,KOMI,KOM2) 

Sars RETURN 
125¢ 130 CALL ERROR(66,KOM1,KOM2) 
126¢ RETURN 


127¢ ENO 


10 


1s 
20 
25 


30 


32 


35 
40 


so 


SUBROUTINE COMEXT 


COMMON A(1326),0(500),10TSL (8,500) ,INITIOC3) LASTIOC3),ISRCHE3), 
@ SJPIRNOM,JTYP,LSTART,.N2,1FNCNM,LOGIO,NATIO,IDIYP.NID,LOC, 
2 LTYP,ITYP,IBLKOT,MODE,IERR,IOES 

INTEGER BITGET 

I1COMLC#O 

[COMNM#IOTBL(46,L0C) 

ICOMST#IOTBL(S,I1COMNM) 

ICOMNO#IOTBL(6,1COMNM) 

ICOMSZsIDTBL(4,1COMNM) 

NATLOC#ICOMNO 

00 20 I#t,ICcOmMs2 

NATLOC#IOTBL(S,NATLOC) 

MULE] 

1g2*1 

ITP2BITGET(IOTBL(3,NXTLOC),1043) 

IFCITP c£Qe 2 oORe ITP cE Qe 3) MUL OZ 

IF(LOC eEQ@e. NXTLOC) GO TO 25 

IF(BITGET(IOTBLI3J,NXTLOCI 53,1) e&Q@e 1) GO TO 10 

Go TO 20 

NOIM*BITGETCIDTBL(3sNXTLOC) 4746) —— ee 

00 15 Js1,NDOIM 

IWRO@3¢3/2 

IPOS#MOD(4,2)¢18+18 


ISZ®1ISZ¢BITGET(IDOTBLLIMRDNXTLOC),1POS,18) | 
CONTINUE 

ICOMLC#ICOMLC+I1SZeMUL 

ILFT#ICOMLC 

IRHT*#1COMSZ=1COMLC 

NXTLOC#LOC 

1OFFSTwIOTBL(8,NXTLOC) 
NXTLOC#IDTBL(7,NXTLOC) 

IFUNXTLOC .EQ@e LOC) RETURN 
1OFF2=10TBL(6,NXTLOC) 

IFC CLOFFST-10FF2) .GT. ILFT) GO TO Sa 
ITPeBITGET(IOTBL(3,NXTLOC),10,3) 

1SZs1 

IFCITP oNEe 2 eANDse ITP «NEw 3) GO TO 32 

IF (CMODCCILFET=10FFST+*LOFF2),2) sNEe OD 
S CALL ERROR(64,LOTBLEENXTLOC?,LOTBL EL, ECOMNM)?) 
1SZs2 

IF(BITGET(IOTBLO3,NXTLOC), 1,1) «NEw 1) GO TO 40 
NOIMMBITGETCIOTBL IS »NXTLOCI 7,6) 

00 35 I=1,NOIM 

IWROm3¢1/2 

I1POS*M00(1,2)018418 
ISUBSBITGET(IOTBL(IMRO,NXTLOC),IPOS,58) 
ISZ=ISZeIsuB 

CONTINUE - _ 
IFCCISZ=CLOFFST=10FF2)) «GT. IRHT) GO TO SO 
GO TO 390 

CALL ERROR(47,KOM1,K0M2) 

RETURN 

END 


COMEXT 2 
RICH 2 


RICH 4 
COMEKT 4 
COMEXT 5S 
COMEAT 6 
COMEKT 7 
COMEXT 6 
COMEKT ¢ 
COMEXTIO 
COMEXTII 
COMEKTI2 


COMEXKTI3 
COMEAKTI4 
COMEXTIE6G 
COMEXTI?7 
COMEXTI9 
COMEXT20 


COMEXT22 
COMEXKT23 


COMEKT26 
COMEXT27 
COMEKT26 
COMEXT29 
COMEXT30 
COMEXKT31 
COMEKT32 
COMEKT33 


COMEXT34 


COMEXTI6 
COMEXT37 
COMEXT386 


COMEXT4O 
COMEXTS4I 
COMEXTH? 
COMEXKT43 
COMEXT44 


COMEXT4S 
COMEXKT47 


le SUBROUTINE COMSCH COMSCH 2 
2e COMMON A(1326),0(500),10TBL(8, SOO) ,INITIOC3S).LASTIO(3SI,ISRCH(3), RICH 2 
je © JPTR NSM, JTYPSLSTART sNZ2,1FNCNM,LOGIDNATIDIOTYP NID LOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IOES RICH 4 
Se JeINITIDI3) : COMSCH 4 
be IF(J e€@e OF GO TO 15 COMSCH S$ 
?e 00 10 I#I,NID COMSCH @ 
ae IFC IOTBL(i,J) eNEs NXTIO) GO TOS COMSCH 7 
eo ISRCH(3) #1 COMSCH 6 
106 LoceJ COMSCH 9 
lle RETURN Se COMSCHIO 
l2e 5 JelOTBL(2,y) COMSCHIL 
L3e IF (J eEQ@e OQ) GO TO 15 COMSCHI2 
l4e 10 CONTINUE COMSCHI3 
iSe 15 ISRCH(3) 29 COMSCHI4 
loe RETURN COMSCHIS 
17° END COMSCHI6 
le SUBROUTINE CTGOTO CTGOTO 
ze COMMON AC1326)40(500) ,10TBL(8,SOO),INITIO(3) LASTIO(3),ISRCH(3), RICH 
ae © JPTRiNsMJTYPsLSTART NZ, 1FNCNM,LOGID,NATID,IDIYP.NIOD,LOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IOES RICH 4 
—Se COC MM ONSLABELS/STATRA(2,200),NLARFL =a eee. 3 
be COMMON/BASBLK/I BLOCK (2500) ,NBLOCK ,NB,NBRNCH 
ze DIMENSION IALPH(4) CIGOTO 4 
Be INTEGER STATRA,AsBLANK yRPAR,COMMA CTGOTO 7 
ge INTEGER BITPUT,BITGET CTGOTO @ 
106¢ DATA BLANK/1H /,COMMA/IH,/,LPAR/IH(/,RPAR/IHDS CTGOTO 9 
lie _ DATA (IALPH(1), 1 el,4I 1G, LHO,IHT, Hos ee — he 
12e 00 S Iele4 cTGoToll 
Lje IFCNEXT(JPTR) «NEw ITALPH(I}) GO TO 30 CTGOTOL2 
4e S CONTINUE cTGOTOL3 
—i$¢_ ENE AT CUP ER) oR s LOAR? 6S 79 36 —— a CTGOTOIY 
lee NBLOCK*NBLOCK#1 CTGOTOIS 
i7e JBLOCK SNBLOCK CTGOTOI6 
lee NBRNCH#O cTGoTol? 
19e 10 CALL GNLE CTGOTOIS 
206¢ IF(JTYP «NEs 5S) GO TO 30 CTGOTOI? 
ef Se CALL STSRCH ee SPOT ——— x CTGOTO2ZO0 
226 STATRA(2Z2,LOCISBITPUT(STATRA(2,LOC) y1iyi2? crGoTo2i 
23¢ IF (NBRNCH «E@e O) GO TO 15 CTGOTO2Z2 
24e 0O 12 I#1,NBRNCH CTGOTO23 
2se IF(LOC e£Qe IBLOCK(NBLOCK=I¢1)) GO TO 17 cTGoTO24 
260 12 CONTINUE CTGOTO2S 
_27e 1S NBLOCKSNBLOCKel  _ “ = — __£T60TO246. 
286 IBLOCK (NBLOCK)®LOC CTGOTO27 
29¢ NBRNCH®NBRNCHEL CTGOTO28 
306 17 LFCNEXTCJPTR) eEQe COMMA) GO TO 10 CTGOTO29 
ile IFC ACJPTRe1l) eNEe RPAR) GO TO 30 cTGOTOIO 
32e IF(NEXT(JPTR) eNEo COMMA) GO TO 30 CTGOTO3I 
Sen 1 ee LS - ——— ae ee _CIGOTOI2— 
34e IF(UTYP eNE« 2) GO TO 30 CTGOTO33 
Ase CALL SEARCH ~ CTGOTO34 
Joe IFC IESRCH(2) cEQe 1) CALL ERROR(IONXTIO.KOM2) 
ave IFCISRCH(1) e&Q@e 1) GO TO 20 CTGOTO36 
36¢ forrest CTG@OTO37 
age CALL STORE ee CTGOTO38 
40¢e LOCeNIO CTGOTO39? 
4le 20 CALL IMPTYP CTGOTOSO 
426 IF(BITGET(IOTBL(3,L0C),10,3) «NE 4) CALL ERROR(39NXTID,KOM2? 
43e_ IFCBITGETCIOTBL(SsLOCI stat) eEQe 2) CALL ERROR(ASsNXATIO,KDMZ) 
44e IF(NEXTCJPTR) eNEe BLANK) GO TO 30 CTGOTO4) 
45e  ___s BLOCK (JBLOCK) #2000¢10C — ee CTGOTO44 
46e NBel CTGOTO4S 
47¢ RETURN CTGOTO46 
480 30 CALL ERROR(7,KOME,KOM2) 
49° RETURN CTGOTO4B 
S0¢ END CTGOTOS? 


te SUBROUTINE DATA OATA 
ze COMMON A(1326),0(500) ,10TBL (8,500) ,INITIO(3) ,LASTIO( 3) ,ISRCHI3), RICH 2 
ae e@ JPIR NoM,JTYP,LSTARI,N2,I1FNCNM,LOGIO,NATID,IDIYP,NID,LOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IOES RICH 4 
Se DIMENSION IALPH(4) i DATA 4 
be INTEGER A,RPAR,COMMA,SLASH, BLANK ,ASTRIK »PLUS OaTa s 
oy ewe 5 8 A 3 rn __ DATA b 
ae DATA.LPAR/IHI Ss RPAR/IH)/ «COMMA/IH,/,SLASH/IH//,BLANK/IH /, DATA 7 
ge 1 ASTRIK/1He/,PLUS/IM4/ MINUS/IH=s/ DATA 6 
106 DATA (CIALPH(T), Teh ,4)/IHO, THA, IMT, THAS DATA q 
lie 00 5 Iehs4 DATA 10 
12e IF(NEXTCJPTR) «NEw TALPH(1)) GO TO 60 DATA 11 
Lie 5S CONTINUE ES eee en = $2 See!) tf BE er 
i4e 6 LSTISZ=0 DATA 13 
ise LST2SZs0 DATA 14 
lée 8 [Sz81 

i7e CALL GNLE a . “ . — 

186 IF(UTYP «NE. 2) GO TO 60 DATA 16 
19e CALL SEARCH OaATA 17 
206 IFCISRCH(2) -EQ@e 1) CALL ERROR(VIO,NXTIO,KOM2) 

21e IF(ISRCH(1) 2EQ@s 1) GO TO 9 DATA 9 
226 1OTYP=I DATA 20 

=238 CARL SEORE < — on = —— —— Ee. 
24e LOCaNID DATA 22 
2Se 9 VF(BITGETCIDTBL(3sLOCIsbZadd) cEQe 2) CALL ERROR(IONXTID»KOM2) 

260 CALL IMPTYP OaTa 24 
278 IF(BITGET(IDTBL(3eLOC slbst? e€Qe Q) GOTO 10 DATA 25 
286 TCOMLC#IOTBL(6,LOC) OATA 27 
29 IFUL BLKOT sEQ@e 0 sORe IDTBL(IsICOMLC) sEQe BLANK) 00022 

30e S CALL ERROR(28,NXTID,KOM2) 

Bie 10 IF(NEXT(JUPTR) eNEo LPAR) GO TO 25 DATA 29 
320 IFCBITGET(IOTBL(3,LOC) »151) sEQe OP GO TO 90 DATA 31 
33e NDIM*BITGETCIDIBL(3,L0C)s7,6) DATA 32 
34e 1=0 

_aSe__ AS ele) — en oe = x eee = 

Joe CALL GNLE OATA 34 
a7e IF(UTYP eNEe 5) GO TO 60 DATA 35 
360 IF(N2 eLE. 0) CALL ERROR(8,KOMI,KDM2) 

39° IWRD#3+1/2 DATA 37 
40° IPOS#18emMO0(1,2)418 

4Le LFINZ eGTo BITGET(IDIBL( MRD LOCI, IPOSsI7IICALL ERROR(IBAsKOIsKD2) 

42e IF(NEXT(JPTR) c&€ Qe COMMA) GO TO IS DATA 40 
43 IF(L eNEe NOIM) GO TO 80 

44e IF(ACJPTRe1) eNE« RPAR}? GO TO 80 OATA 42 
4Se GO TO 35 DATA 43 
460 25 JPTReJPTR=I 

479 CBI TGETCIDIBL CAL OC), ist) sEMe. O) GOTO 35 

480 NOIM*BBITGET(JOTBLI(3,L0C),7,6) 

49° 00 30 I*1,NOIM 

soe TAROs341/2 

Sie TPOS#18¢MOD(1.2)+18 

S2e 30 ISZ#ISZ¢BITGETI(IOTBL(IWRO,LOC),IPOS,17) 

i LFABITGETCIDTBL (3 sLOCds14st) cEQe 1) CALL ERROR( 29s fOTAL (1 sLOCI,K) 

S4e 35 LSTISZeLSTISZ+1SZ 

SSe TOTBL(3,LOC)MBITPUT(JOTBL(3,LOC) fy 4? 

S6e IF(NEXTCJPTR) e&£Q6 COMMA) GO TO 8 DATA 50 


S7° IF(ACJPTR=1) »eNEe SLASH) GO TO 60 DATA SI 


aa 


S60 40 NRPEATSI DATA $2 
S9e 2 CALL GNLE E aA =, _.-___ OATA 5D 
60° IF(STYP 2EQ. 33 GO TO 47 DATA 54 
éle IF(UTY® «NEs 5S) GO TO 45 oe DATA 55 
620 IF(NEXT(CJPTR) eNEs ASTRIK) GO TO SO DATA $6 
636 NRPEATSN2 a DATA 57 
ove CALL GNLE DATA 58 
o5e 4S TFL ACJPTR=j) GNEe PLUS sANDe A(JPTR=1) eNEg MINUS) GO TO 47 DATA 99 
660@ CALL GNLE DATA 60 
oTe 47 KKSNEATC(SPTR) DATA 61 
6860 SO IF(JTYP «GE. 3eANDe JTYP el Ee 6) GO TO SS DATA 62 
690 IF(UTYP «EQe. 7 eANDe LOGID eE@e 10) GO TO 55 DATA 63 
70¢ IF(JTYP «EQ. 7 eANDe LOGID «EQ. 11) GO TO 55 DATA 64 
2 = go TO 70 ese —— : DATA 65 
72e SS LST2SZeLST2SZ¢NRPEAT DATA 66 
730 IF (ACUPTR=1) e&Qe COMMA) GO TO 40 = DATA 67 
THe IF(ACUPTR=1) eNEs SLASH) GO TO 60 DATA 68 
ne IF(LSTISZ eNEo LST2SZ) CALL ERROR(31.KDM1.KDOMZ) a a 
Toe IF(NEXT(JPTR) «EQ. COMMA) GO TO 6 DATA 70 
77¢ IFCACUPTR=1) eNEe BLANK) GO TO 40 _ DATA 71 
780 RETURN DATA 72 
79¢ 60 CALL ERROR(7,KOM1,KOM2) 

80¢ RETURN DATA 74 
Bie 70 CALL ERRUR(23,KOM1,KOM2)— - = — — _ 
826 RETURN DATA 76 
830 BO CALL ERROR(19.KOMI,KOM2) 

B4e RETURN DATA 78 
aSe 9O CALL ERROR(13,1OTBL(1,L0C) eKDM2) 

Boe RETURN DATA 60 


B78 _ END oe ~ - —_—_—_— — —_— DATA 81 


te SUBROUTINE DESCRP DESCRP 2 
ze COMMON A(1326),0(500),10TBL (8,500) ,INITIOC3) LASTIO¢IP,LSRCOHI3), RICH 
ae © SPTR Ns Me JTYPLSTARTsNZs 1 FNCNM,LOGIDNATID,IDIYPsNIDLOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,ITERR,IDES RICH 4 
5. ie _COMMON/FORMAT/IDESST, 1QESND,IGPST,IGPND,IGRP,SEPST.SEPND, — . 
6e 1 OIR,ICOM,ISEP OESCRP § 
Te OIMENSION FORMT(7) DESCRP 6 
be INTEGER A,FORMT,DECPT, BLANK ,PEE EX» AICH OESCRP 7 
ve DATA (CFORMT( LT), Leha 7) IMF SEHESIHGsIHDSIMI IMs HAS DESCRP 6 
10¢ DATA DECPT/1He/,BLANK/IH /,PEE/IHP/,EX/IHK/,ALCH/EHM/ »MINUS/IH=/ 9 DESCRP 9 
Ate. CSE Cop 3 a ee ae = Se 
12e INT#O OESCRPII 
i3e IMINUS#Q DESCRPI2 
14e 1OES=1 DESCRP13 
Se IF (NEXT(IDESST) eNEe MINUS) GO TO S DESCRPI4 
lee IMINUS®) DESCRPIS 
S) ae a SS ee eee es 
16e 5 JPTRSIOESST DESCRPI7 
19¢ 6 CONTINUE DESCRPIB6 
20¢ CALL GNLE 
fot _IF({JTYP s£Q. 3) GO TO AD = ee — = - 
22e IF(UTYP eE€Qe 5) GO TO 10 
230 IF(JTYP «NE. 2) GO TO 1S 
240 IF(NXTID eEQe PEE eANDe ISCLFC «EQ@e OF GO TO 20 
2Se TFCINT s&€Q@e &§ eANDe N2 oLTo 1) GO TO 15 
260 IFCISCLFC .EQ@e O eANDe IMINUS «EQe 1) GO TO 15 
224... _ 60_ 38.75 — —$_—_—_— ee 
28¢ 10 INTel DESCRP24 
298 GO 10 6 DESCRP2S 
30¢ 15 [0ESed DESCRP26 
31e RETURN DESCRP27 
32¢ 20 IFCINT EQ. 0) GO TO 15 
i Yes —ASCLFCal 3S a Se ~ 
34e INTsO 
3508 GO 10 6 
360 25 00 30 Ia#t,7 
372 JF INXTID -EQe FORMT(3)}) GO TO 4S 
38¢ 30 CONTINUE DESCRP36 
39e______IF4{NXTID WE. EX .OR. ISCLFC 6G. 4 ORs INT .£Q. 0) 60 TO 45 —- 
406¢ GO TO 60 
410 4S CALL GNLE DESCRP4 
42e IFCJTYP «NE. 5S) GO TO 158 DESCRP42 
430 N@LOTHSN2 DESCRP43 
44e IF(I eLEse 4) GO TO 60 
MSe EL ISCL EC LEQ. 4 .OR, NMIOIN LT. 4) 60 TO yp Sn ees 
460 IF(T c&Qe 7 eANDe N@IOTH eGTe 4) GO TO 15 
47@ LOESNOBIPTRel DESCRP47T 
48¢ RETURN DESCRP4B 
49a 0 IF(NEXT(JPTR) «NE. DECPT) GO TO 1S DESCRP4P 
soe IF(N@IOTH .LTe 2) GO TO IS OESCRPSO 
$34 ______ CALL 4AL 2 — — —__—— ~ —___—______—_ DESERES1 
Sze TFCUTYP «NE 5? GO TO 'S DESCRPS2 
Sia NOCPLSaN2 DESCRPS} 
S4e IDESNOSJPTR=1 OESCRPS4 
Sse IF(1 sEQ@e 1) GO TO 65 OESCRPSS 
Sée IF(NWIOTH .LTe (NOCPLS*6)) GO TO 15 OESCRPS6 
S7a EE = _ DESCRPS7 
S6e 65 IF(N@IOTH .L T+ NOCPLS) GO TO 15 OESCRPSS 
sve RETURN DESCRPS? 
60¢e 80 IDESNO#JPTR=1 DESCRP6O 
ole RETURN DESCRP41 
62¢ ENO DESCRP67 


10 
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25 
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30 
35 


28 


SUBROUTINE DIMEN OIMEN 2 
COMMON A(64326),06500),10TB8L(8,SO0),INITIO(3) LASTIO(3),ISRCH( 3S), RICH 2 
JPTRIN gM, ITYPZLSTART gN2,TFNCNM,LOGID NXTID,IOTYPyNJO LOC, 

2 LTYP,LTYP,IBLKOT,MODE,IERR,IDES RICH 4 
OLMENSION LALPH(9),1O01M(3) OIMEN 4 
INTEGER A,O0,RPAR,COMMA OIMEN 5S 
INTEGER BL TPUT,BITGET,COMLOC DIMEN 6 
DATA (CITALPH(T) Teh, 9) /IHO,IHIT THM, THE, THN, IHS,IHI THO, THN OIMEN 7 
DATA LPAR/IH(/,RPAR/IH)/gCOMMASIHGZS __..____ SI KGN _¢ 
bo 10 1=1,9 DIMEN 9 
JF(NEXTCJPTR) oNEe JALPH(J)) GO TO 310 DIMEN 10 
CONTINUE OIMEN 11 
CALL GNLE OIMEN 12 
IF(JTYP .«NEe 2) GO TO 110 DIMEN 13 
CALL SEARCH ==. —, ets = 
IFCISRCH(2) c&Qe 1) CALL ERROR(IO,NXTID,KOM2) 

TFCISRCH( 1) e&Qe 21) GO TOS OIMEN 16 
1oTYPs=1 DIMEN 17 
CALL STORE = DIMEN 16 
LOC#NID OIMEN 19 
IFC BITGET(CIOTBL(3,LOC),1,1) aNEs OP CALL ERROR(11,NXTID,KOMI) 

CALL IMPTYP OIMEN 21 
IOTBL(3,LOC) mBITPUTL(IDTBL(3,L0C) 44nd) OIMEN 22 
TE=LOCc OIMEN 23 
IF (NEXT(JPTRI .NE~ LPAR) GO TO 130- — ——__—___—_—— DIMEN 24 
INCR#L OIMEN 25 
Is0 ° 

Lelet 

CALL GNLE DIMEN 27 
IFC JTYP «NEe 5S) GO TO 13 DIMEN 28 
IDIM( 1) eN2 Se ae ee — + SP ENEN ZF 
IFCNZ «GT. (2e@17=1)) CALL ERROR(8,KOMEsKOM2) 

IF(N2 eLEs OF CALL ERROR(BsKOMI,KOM2) 

INCR®INCRON2 DIMEN 32 
Go To 14 DIMEN 33 
IF(JTTP «NEe’ 2) GO TO 110 OIMEN 34 
LOTrPay = : a —— DLMEN 35 
CALL SEARCH DIMEN 36 
IFCISRCH(2) e£Qe 1) CALL ERROR(IO,NXTIO,KOM2) 

TF CISRCH(E) cEQ@e 41) GOTO 25 OIMEN 38 
IDTYPs! DIMEN 39 
CALL STORE DIMEN 40 
LOC#aNID ——————— ——_— >: REN 45 
IF (BITGET(IOTBL(3,LOC),12,1) eNEe 1) CALL ERROR(9,KOMI ,KOM2) 
IFCBITGET(IOTBL(3,LOCI,144) «NEs OF GO TO 420 
1OTBL(3,LOC)#BITPUT(TOTBL(3,LOC)y1e13? OIMEN 44 
CALL IMPTYP DIMEN 45 
IF (BITGET(IOTBL(3,L0C),10,3) «NEw 4) CALL ERROR(9,KOMI,KOM2) 
LOUM( Lj m2eoep7eL oc _ —~ — — —~ DIMEN 47 
TF CNEXTCJPTR) «EQe COMMAS GO TO 15 OIMEN 48 
IF CACIPTR=b) eNEe RPAR) GO TO 440 

LOcelE 

LOTBL(3,LOC)MBITPUTIIOTBL(3,LOC) 347) DIMEN S3 
IF(} o6Te 3) GO TO 110 OIMEN 54 
GO TO (35,30,24),1 = — DIMEN SS 
TOTBL(4,LOC) #BITPUTI(IOTBL(4,LOC),IOIM(3),36) OIMEN S6 
IOTBL(4,LOC)SBITPUTLIDIBL(4,LOC),IDIM(2) 518) DIMEN S? 
TOTBL(3,LOC)#BITPUT(IOTBL(3,LOC),1IDIM( 1) +36) OIMEN S86 
IFC BITGETCIOTBL(3,L0C),16,1) «NEw 1) GO TO SO DIMEN SS? 
COMLOC#IOTBL(6,L0C) OIMEN 60 
lTtal ——- ——— a DISEN 61 
ITPeBITGET(IOTBL(3,L0C),10,3) OIMEN 62 
TFCLTP sEQe 2 2ORe ITP sERe 3) ITB2 ee _ ~ 
TOTBL(4,COMLOC)SIDTBL(4,COMLOC) I Te(INCR=1) DIMEN 64 
CONTINUE Scecnsines ee = a QIMEN 45 
IF(NEXT(JPTR) «&EQ- COMMA) GO TO 12 DIMEN 66 

JE(JPTR oGTs MN) RETURN = ___ DIMEN 47. 
CALL ERROR‘ 7,KOMI,KOM2) 

RETURN ‘ DIMEN 6% 
CALL ERROR(I4,NXTID,KOM2) 

RETURN 

END OIMEN 70 


le SUBROUTINE DO 00 2 


2e COMMON AC1326),0(500),10TBL(8,500),INITIO(3) ,LASTIOC3),ISRCH(3), RICH 2 
ie @ JPIR NM, JTYP,LSTART,NZ2,I1FNCNM,L OGIO, NATID,IOTYP,NID,LOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IDES RICH 4 
—Se COMMONS ABEL S/STATRA(2,200) ,NLABE) —— QO 2 2 
be COMMON/DOLOOP/ISTACK( 4,50) .NSTACK,ILOOP,JOVFL& 
Te COMMON/BASBLK/IBLOCK( 2500) ,NBLOCK ,NB,NBRNCH 
ge DIMENSION PARAM(3) bo v3 
= _ INTEGER A, BLANK, COMMA, EQUALS, DEE ,OH,PARAM,STATRA © = =— oo 8 
10¢ INTEGER BITPUT,BITGET oo 9 
lip DATA BLANK/IH /,COMMA/1IH)/ pEQUALS/IH®/,DEE/IHO/S OHS I HOS 00 10 
12e IF(NEXT(JPTR) «NE« DEE) GO TO 50 00 it 
I3e IF (NEXT(JPTR) «NEs OH) GO TO SQ oo 12 
I4e CALL GNLE 00 13 
Age See oa ee ee re a bo 14 
lée CALL STSRCH 00 1S 
17e STATRA(ZsLOCI@BITPUT(STATRA(2sL0C),i,i2) bo 16 
18e STATRA(Z,LOCISBITPUT(STATRA(2,L0CI,1,55) oo t7 
19¢ IFC LOVFLm@ 2EQ@e 1) GO TO 2 
206 NSTACK@NSTACK¢! oo i6 
ee ENS TACK 4GEs SO) 60 TO f sae = = a 
22e ISTACK (CE sNSTACK) LOC 00 19 
23 ISTACK(2sNSTACK) #0 bo 20 
246 ISTACK(3sNSTACK)®ILOOP ee) 21 
25e ILOOP=NSTACK bo 22 
260 GO TO 2 
=, 7 { eee! ae 2S ee = . ne ae 
286 WRITE(6,60) 
290 60 FORMAT(///5X,S0H DO STACK OVERFLOM - DO LOOP PROCESSING TERMINATED 
300 e) 
ale 2 CALL GNLE 
32e IF(JTYP eNEs 2) GO TO SO oo 24 
Ale CALL SEARCH ae 7 a 25 
34e TFC ISRCH(2) «EQe 1) CALL ERROR(VIO,NXTIO,KOM2) 
ase IFCISRCH(1) «ERe 1) GO TOS 00 27 
360 IDTYPst 00 26 
ile CALL STORE 20 27 
38¢e LOCeNIO oo 30 
ite... 5 GALt Seer ve See Ee eres = = de ES al_ 
400 IF(BITGET(CIOTBL(3,L0C),10,3) «NE. 4) CALL ERROR(4O,NXTIO,KOM2? 
41e IF(BITGETCIOTBLAGS,LOCI otal? cEQe 1) CALL ERROR(I4sNXTID,KDM2) 
42e IF (NEXT(JPTR) «NEw EQUALS) GO TO 50 Lois) 34 
430 IFCIOVFL@ .EQse 1) GO TO 8 é 
a4e NBLOCK#NBLOCKe! oo as 
4$e  __ IT BLOCK (NBLOCK)#30Q00+L0C = = ee ee 36. 
460 ISTACK (4 ,NSTACK)@LOC do 37 
470 6 PARAM(3)8) 
4Be 00 30 I#1,3 eke) 39 
490 CALL GNLE 00 40 
SO6°« IF(JTYP sNEe S) GO TO 10 ee) 41 
Sie mes PARAM(I)ON2 eS _ 00 42 
S2e IF(N2 eLE. OF CALL ERROR(4E,KOME,KOM2) 
Sie GO TO 20 00 44 
S4e 10 IF(UTYP «NE« 2) GO TO SO oo 4S 
SSe CALL SEARCH = bo 46 
Sbe TF CESRCH(2) eE€Q@e 1) CALL ERROR(10,NXTIO,KOM2) 
[yi = _TF(ISRCH(1) sEQe 4) GO TO 1S Sanaa Tae aia a a... 8 
S8e 1OTYPel Loko) 49 
59° CALL STORE 00 fe] 
60¢ LOCeNIO bo Si 
ole 1S CALL IMPTYP 00 $2 
62e IF (BITGET(IOTBL(3,L0C),10,3) «NE. 4) CALL ERROR(4O,NXTID,KOM2) 
eA BUTGETALOTBOLAD LOCd stad) sEOs. 1) CALL ERROR(I4,NATID,KOM2Z) 
64%e NBLOCK#NBLOCKel bo ss 
6Se IBLOCK (NBLOCK)#©7000¢L0C 


29 


a) 


TOTBL(3,LOC)sBITPUT(IOTBL 


PARAM(1)=0 
20 IF(L «E€Q@e 3) GO TO 30 
IF(L e£@e 1) GO TO 25 
IF CNEXTCUPTR) «&€Qe BLANK) 
JPTReJPTRei 
25 JIFC(NEXT(IPTR) «NEo COMMA) 
30 CONTINUE 
IFCNEXTCJPTR) «NEo BLANKS 


(3,L0C),1L00P,36) 


Go TO 35 
Go To $0 


Go To 50 


35 IF (PARAM(1) 4EQe O 6ORe PARAM(2) 2EQe GO} GO TO 40 


IF (PARAM(2) ol Te PARAM(I) 


) CALL ERROR(41,KOM1,KOM2) 


TF (PARAM(3) 2EQ@-e OF GO TO 40 


IF (CPARAM(2)¢PARAM(3)-1) 
40 NBLOCKSNBLOCK#} 

IBLOCK (NBLOCK)#998 

NBRNCHal 

NBel 

RETURN 
SO CALL ERROR(7,KOMI,KOM2) 
—_ RETURN 

ENO 


eGTe (2¢@17=1)) CALL ERROR(41,KOML,KOM2) 


30 


$7 
$e 
TS 
60 
61 
62 
o3 
64 
6s 


o7 


6? 
70 
71 
72 
73 


7s 
76 


RR ae 


le SUBROUTINE EQuIv¥ Ewulv 2 


2e COMMON A(4326),0(500) ,1OTBL (8,500) ,INITIO(3) pLASTIDO(3),1SRCH(3), RICH 2 
3e © JPTRINM,ITYP,LSTART»NZ2,1FNCNM,LOGIO,NXTIO,IOTYP,NIO,LOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IOES KICH 4 
Se OIMENSION [ALPH(11),101M(3),1SUB(3) Eeulv 4 
6e INTEGER BI TPUT,BITGET EQuly Ss 
Te INTEGER A,RPAR,COMMA,BOFFST,B8LANK EQUIV 6 
Ge DATA (LALPH(1) TSA, LLI/IHE sIHQsIHUSIHISIHYIHASIML THES THNGINC, Eeuly 7 
ae 1 oLHEs E@uiv 6 
10¢ OATA LPAR/IH(/,RPAR/1H)/sCOMMA/IHs/,BLANK/IH / Equlv 9 
lle 00 S Ist,i) teulv 10 
i2¢ TF CNEXT(JPTR) .NEw TALPH{1)) GO TO 130 Eeuly ii 
i3e S CONTINUE EQulv 12 
l4e B IF(NEXT(JPTR) «NEw LPAR) GO TO 130 - Eeulv 13 
1Se LSTLOC2#0 E@ulv 14 
lee BOFFST#0O E@ulv 1S 
17¢ Jeo 
ibe 120 Jessel = 
19e CALL GNLE E@ulv 17 
20¢ ILOCal EQUIV 16 
ran) IF(UTYP eNE« 2) GO TO 130 EQUIV 19 
22¢ CALL SEARCH Eaulv 20 
236¢ IFC TSRCH(2) eEQe 1) CALL ERROR(IONXTIO,KOM2) 
24@ IFCISRCH(4)) .EQe 1) GO TO P? EGuUlY 22 
2Se 1OTYP=1 EQUIV 23 
260 CALL STORE E@ulv 24 
27¢ LOC@#NIO EQulv 25s 
28e 9 CALL IMPTYP a EQulv 26 
296 IF(BITGET(IOTBL(3,LOC),12,1) eEQ@e 1) CALL ERROR(20,NXTID,KOM2) 
300 LE GNEXTELIPTRE eNEo LPARD GO TO 30 Eauiv 26 
3ie IF(BITGET(IOTBL(3,LO0C) 5,151) eNEs 1) GO TO 150 EQUIV 29 
320 NOIMMBITGET(IOTBL(3,L0C) 4756) EQulv 30 
33e¢ 0O 10 I#1,NOIM EQUIV 31 
34e CALL GNLE teulv 32 
3Se IF(UTYP eNEe S) GO TO 130 Ewulv 33 
Joe - IDEME LD OND - EQuiv 34 
37¢ IF(N2 eLEs OF CALL ERROR(8,KOMI,KDM2) 
380 TAROa3+1/2 EQuiv 36 
39¢ TPOS#18eMOD(1,2)418 ; 
40e TSUBCIL)ZBITGETCIOTAL(LWRO,LOCH,IPOS,47) 
41e IF(N2 oGT,. I1SUB(I)) CALL ERROR(18,KDM1,KOM2) 

—i2a— IF (NEXT(JPTR) 2EQ. COMMA) GO TO 10 eeulv 40 
43e IFC ACUPTR=1) eNEs RPAR) GO TO 130 EQUIV 41 
44e@ GO TO 15 t@ulv 42 
4Se 10 CONTINUE E@ulv 43 
460 GO TO 140 E€wulv 44 
47¢@ 1S NOIMel EQUIV 4S 

Sie TLOC#IDIMi1) a ~-= EeulY 46 
49e TF (NOIM eEQ-6 1) GO TO 25 EQUIV 47 
soe PLOC#ILOC+(1IDIM(2)-1)¢1SuB(1) Egulv 46 
Sle IF(NOIM eEQe 2) GO TO 25 EQulv 49 
S2e ILOC#ILOC+(IDIM(3)-1LielSua(1)e1SUB(2) Eeulv sO 
Sie 25 IT#eBITGET(IOTBL(3,L0C),10,3) E@ulv SI 

—— se LECLE 6042. .085 EE 4EGs 3) Li Caset ee = - — 
Sse IOFFST#I-1LOC-BOFFST eQulv $3 
Sée GO TO 4S EQul¥ S4 
S7e 30 IF(BITGET(IOTBL(3,LOC),1,1) eNEe OP CALL ERROR(I4,NXTIO,KOM2) 

She LOFFST#*BOFFST EQUlY Sé 
Ss9e JPTR#EJIPTR=1 tQulv S7 
et i ee 45 IF(BITGET(IDTBL(3,L00),17,1) sEQe. 1) GO TO SPO a _EGULY Se. 
éle IOTBL(3,LOCI#BITPUT(TOTBL(3,LOCIy1e17) teulv Ss? 
62e¢ IF(LSTLOC eEWe OF GO TO SO E@ulyv 60 
63¢ TOTBL(7,LSTLOC)*LOC EQUIV 61 
64e GO TO 5S E@uly 62 
65e SO IFSTLC#LOC ERQulv 63 

Abe sss SS IDTBL(A,LOC)sIOFFST a cis — : = EQulv 64 

é7¢ LSTLOC#LOC EQ@ULVY 6S 


66e IF(J eNEe 1) GO TO 100 E@UIV 66 


69e Go TO 98 
= 70¢ 57 LOC3=LOC 
The $8 LOC3#I0TBL(7,L0C3) 
72 TF(LOCS «ERs O) GO TO 59 
730 IF(LOC3 +EQ- LOC) GO TO 60 
74e GO TO 58 
7Se 59 JLOC#ILOC+IDTBL(8,LOC) 
Tee IF(JLOC eNEu IDIS) CaLlL ERROR(20,10TAL(1,L00),KDM2) 
77° Go TO 100 
78° 60 IFILSILOC «NEe OP GO TO 63 
79¢@ IFSTLCBLOC 
8Q¢ GQ 19 6S 
Ble 63 1OTBLI7,LSTLOC)eLOC 
22S 65 LOC2Z*LO0C 
B30 70 NXTLOC#IOTBL(7,L0C2) 
B4e IF(NXTLOC »EQe LOC) GO TO 75 
8Se LOCZ#NKTLOC 
Boe GO 10 70 
B7e 75 1O0TBL(7,L0C2)80 
eee -\: eee KSTLOC#LOC2 
890 1OFFOF SIOFFST=IDTBL(8,L0C) 
90° IFC IOFFOF) 80:98,90 
gle 80 LOC2=L0C 
920 8S 1DTBL(8,LOCZ)#IDTBL(8sLOC2) +1 OF FOF 
930 Loc2s1OTBL(7,L0C2) 
940 AF(LOC2 eE@s OF GO TO 98 
95e GO TO 85 
Foe 7O LOCZ2=IFSTLC 
978 9S IF(LOC2 «EQ. LOC) GO TO 97 
98¢ IOTBL(8,LOC2)*10TBL(B,LOC2)-LOFFOF 
998 LOc2=10TBL(7,L0C2) 
a ES Oe FS 2. a = 
101e 97 BOFFST#BOFFST=IOFFOF 
102¢ 98 [O1S*ILOC+fOTB8L(8,L0C? 
103¢ 100 IF(NEXT(JPTR) «EQs. COMMA) GO TO 120 
104¢ IF (AC JPTR=1) «NE« RPAR) GO TO 130 
10S¢ IF(J e€Q@6 3) GO TO 130 
poets |)! IDTBLU7sUSTLOCI#IFSTLE 
1076 JK=0 
108¢ LOC3*IFSTLC 
1o9e 1=#0 
110¢ 110 Ielel 
tite LOC3#I0TBL(7,L0C3) 
a |), TF(BITGETCIDTBLES,LOCI  alont) «EQe 
1i3e JKeUK eI 
lide IF (JK oGT. 1) CALL ERROR(Z1,1OTBL(1,LOC3),1OTBL(1,LOCI)? 
11Se Loci#Loc3 
liée Loc#Loc3 
1176 CALL COMEXT 
_ 1186 ___ 105 IF(LOC3 «NE. IFSTLC) GO TO 110 
119° IF (NEXT(JPTR) «€Qs BLANK) RETURN 
120¢ IF(ACJPTR=1) 6€Q6 COMMA) GO TO 8 
1216 130 CALL ERROR(7,KOMI1,KDM2) 
1220 RETURN 
1230 140 CALL ERROR(19,KOM1,KOM2) 
———E__——————————— ———————————————— SE ~ 
125¢ 150 CALL ERROR(I3,NXTID,KOM2) 
126¢ RETURN 
1276 END 


QO) GO TO 195 


EQulv 67 
EQUIV 66 
EQUIV 6F 
E@Vilv 70 
E@ulv 71 
E@uly 72 
Eguiv 73 


E@ulv 75 
E@UIlVY 76 
EQUIV 77 
E@ulv 76 
eeulv 79 
E@uly 60 


Equlv 83 
Eeulv 84 


E@ulv 86 
E@uly 87 
EQUlvY 68 
Eeulyv 69 
EQulv 90 


E@uiv 93 
E@ulY @4 


E@ULY 96 


E@ulv 99 
E@uivivod 


Ewulvid2 
E@ulvius 
Ewulvio4 
EQuIVIOS 
EeulvI0s 
EQ@UIVLO?7 
E@uUIVIO8 
EQUIVIO9 


ewUlvidl 
Eeulvjle 
E@uIvIts 


EQUIVIIS 
EQUIVII6 


EQuivi2zd 


EQuLVI2S 
EQUI VIL 27 


Ee@ulvi29? 
Eeulvi30 


SUBROUTINE ERROR(IERROR,INUM,INUM2) 


COMMON A(1326),0(500),10TBL(8s500),INITID(3),LASTID(3),I1SRCH{3), 
© JPTRINM,JTYP,LSTART N2,1FNCNM,LOGIO,NATIO,IOTYP,NID,LOC, 


GO TO (54515525435 445 955 5b5 975 BS IS LOS eI IS eI 25 eI SSIS ISS eI OS, 
BETS bBS eh GS yZOS 4 2856225 9235 4 245 255 42655275 42854 29S, IOS IIS, I2ZS, 
© 33943455355 436543754385 4395 MOD HIS e425 6435 44S 455 4 465,475,485, 
HOS 605 545,625,535 545,565,665, 575,585 595,605 615,625,636 O45, 
S 65546655675 5685 4695470557159 725 5735574547554 7654775578557955805, 
$815 482548355845 ,855 865 487548854895, 905 5971S: 9254935,945) pLERROR 


FORMAT(A4X,31H SYNTAX ERROR IN THIS STATEMENT) 


FORMAT(4X,44H ARRAY DIMENSION IS OUTSIDE OF ALLOMABLE RANGE) 


THIS STATEMENT 


THIS STATEMENT 


VALUE OF INTEGER CONSTANT 1S T00 LARGE) 


1S ILLEGAL) 


1S CUT OF ORDER) 


TOO MANY CONTINUATION CAROS) 


HOLLERITH STRING 


1S TOO LARGE) 


VARIABLE NAME IS TOO LONG) 


ILLEGAL VARIABLE OIMENSION 


18 «AND. IFL oGTe 


QO) IFLe-1 


33 


le 
2° 
3e 
4a 2 LIYP,ITYP,IBLKOT,MODE,IERR,IDES 
Se COMMON/FLOW/IFL,IRP 
—— MRITELO,I> 
7e 1 FORMAT(IX, 100Heeeeevcece 
Be Leanaeeeteasseneecen 
Fe 
ide 
lie 
42a 
i3e 
b4e 
1Se S WRITE(6, 10) 
160 10 FORMAT(6X,26H 
17e GO TO 1000 
pees TT 45 MRISELS, 20) 
19° 20 FORMAT(6X,31H 
20 GO TO 109000 
2te 25 MRITE(&, 30? 
22e 30 FORMAT(6X,39H 
230 Go TO 1000 
— eg 8 BREE CA S0d 
25° 40 FORMAT(6X,28H 
242 Go TO 1000 
27° 45 MRITE(6, 50? 
28° SO FORMAT(6X,30H 
298 GO TO 1000 
308 55 mRITELb6, 60) — 
3le 60 FORMAT(6X,26H 
32 GO TO 109000 
330 65 WRITE(6, 70? 
Ase 70 
350 IFCITYP «lee 
348 40 TO t90g9 _ 
370 75 WRITE(6, BO) 
Abe 80 
390 Go TO 1000 
40° 8S WRITE(4, 90) 
4le 90 FORMAT(6X,4SH 
429 — to ten 
43e 95 WRITE(6,100) INUM 
44e 


IN THIS STATEMENT) 


100 FORMAT(6X,33H THE FUNCTION OR SUBROUTINE NAME 


1S USED ILLE 


ERROR 


CeoeeroeseepoeesesseveseeeeseeERROR 


ERROR 
ERROR 
ERROR 


ERROR 
ERRGR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 


ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 


wow te 


cata 


—__—_744___ 


*GALLY) 
Go TO 1009 
105 WRITE(6,110) INUM 
L10 FORMAT(OX,1L4H THE VARIABLE »A6,32H HAS BEEN PREVIOUSLY DIMENSJONED 
*) 
eo TO 1000 
11S WRITE(6,12Q) INUM 
120 FORMAT(4A,14H THE “VARIABLE ,A6.26H HAS BEEN PREVIOUSLY TYPED) 
GO yO 1000 
125 WRITE(6,130) INUM 
130 FORMAT(6X,14H THE VARIABLE ,A46,38H IS ILLEGALLY FOLLOWED 8Y A LEFT 
© PAREN) 
Go TO 1000 
135 WRITE(4,14Q0) INUM 
140 FORMAT(6X%,26H THE OF MENSIONED VARIABLE ,h46,18H IS USED ILLEGALLY? 
Goa TO 10090 
145 WRITE(6,150) INUM 
150 FORMAT(6X,16H STATEMENT NUMBER ,15.15h 15 NOT DEFINED) 
IFCIFL oGT. OF IFL emt 
GO ro 1000 
155 WRITE(6,160) INUM 
160 FORMAT(6%,16H STATSMENT NUMBER 15,18" 15 NOT REFERENCED) 
Go TO 1000 
165 WRITE(6,170) INU 


170 FORMAT(6X%,18H ILLEGAL VARI AS .46,10n IN COMMON) 
GO 10 1000 ERROR 
175 WRITE(6,!80) ERROR 
180 FORMAT(6%,43H VALVE OF ARRAY SUBSCRIPT EXCEEDS DIMENSION) ERROR 
Go TO 1009 ERROR 
18S MRITEC6,19Q0) ERROR 
190 FORMAT(6%,2S5H ERROR [N ARRAY SUBSCRIPT) ERROR 
GO 10 1009 ERKUR 


195 WRITE(6,200) [NUM 
200 FORMAT(6X,18H ILLEGAL VARIABLE ,A6,16h IS EWUIVALENCED) 
Go TO 1000 
205 MRITE(6s210) INUM,INUM2 
210 FORMAT(6X,22H THE COMMON VARIABLES ,A46,5H AND ,A6,17H ARE EQUIVALE 


*NCED) 

Go TO 1000 ERKOR 
215 WRITE( 6,220) ERROR 
220 FORMAT(6X,19H ILLEGAL 170 DEVICE) ERROR 

Go TO 1000 ERROR 
225 WRITE(64230) ERROR 
230 FORMAT(6X,37H ILLEGAL CHARACTER IN THIS EXPRESSION) _ ERROR 

Go TO 1000 ERROR 


235 WRITE(6,240) INUM 

240 FORMAT(6X,25H ILLEGAL SUBROUTINE NAME ,A6) 
Go TO 1000 

245 WRITE (6,250) 

250 FORMAT(6%,90H SUBROUTINE TABLE OVERFLOW = PROCESSING TERMINATED) 
GO TO 1000 

255 WRITE(6,260) INUM 

260 FORMAT(6X,77H INCORRECT NUMBER OF ARGUMENTS IN CALLING SEWUENCE OF 
S FUNCTION OR SUBROUTINE 14A6) 


GO TO 1000 ERROR 
26S WRITE(6e270) ee — = ERRUR 
270 FORMAT(6X%,19H ILLEGAL ASSIGNMENT) ERROR 

Go TO 1000 ERROR 


60 
él 

2 
63 
64 
65S 
66 


72 
73 
74 
79 
76 
77 
78 


87 
68 
69 
90 


275 WRITE(6,280) INUM 


280 FORMAT(OX,14H THE VARIABLE 2A6.42H APPEARS IN A DATA STATEMENT AND 


e IN COMMON) 
GO TO 1000 
285 WRITE(6,290) INUM 


290 FORMAT(4X,14H THE VARIABLE ,A6,44H HAS PREVIOUSLY APPEARED IN A DA 


eTA STATEMENT) 
Go TO 1900 
295 WRITE(6,300) INUM 
300 FORMAT(6X,22H THE FORMAL PARAMETER ,A6,31H APPEARS JN THIS DATA ST 
@ATEMENT) 
GO TO 1000 
305 WRITE(6,310? 
340 FORMAT(6X,24H LIST SIZES 00 NOT mMatcH) 
Go TO 1000 
315 WRITE(6,320? 
320 FORMAT(SX,24H ILLEGAL STATEMENT LABEL? 
IFCIFL .GT. O) [FL mnt 
Go TO 1000 
325 #RITE(6,330) : 
330 FORMAT(6X,26H DUPLICATE STATEMENT LABEL) 
IFCIFL «GT. O) IFL eet 
Go TO 1000 
335 WRITE(6,340) 
340 FORMAT(6X,34H THIS STATEMENT CAN NOT BE REACHED) 
Go To 1000 x 
345 WRITE(6,350) 
350 FORMAT(6X,31H DO LOOPS ARE IMPROPERLY NESTED) 
Go TO 1000 
355 WRITE(6,360) 
360 FORMAT(6X,32H FORMAT STATEMENT IS NOT LABELED) 
GO TO 1000 ———————— = 
365 WRITE (6,370) 
370 FORMAT(6X,20H ILLEGAL 00 TERMINAL) 
GO TO 1000 
375 WRITE(6,380) 
380 FORMAT(6X,37H LAST EXECUTABLE STATEMENT IS ILLEGAL) 
SECVEL s6¥. ChE asf or ee 
Go TO 1000 
38S WRITE(6,390) INUM 
390 FORMAT(6X,24H THE VARIABLE REFERENCE ,A6,18H IS NOT AN INTEGER?) 
Go TO 1000 
39S WRITE(6,400) INUM 


ERROR 99 
ERROR1IOO 
ERRORIOL 
ERRORIO2 
ERRORIOS 
ERRORIOY 


ERRORIOS 


— ERRORIOO 


ERRORIU7 


ERRORIOS 
ERRORIO? 
ERRORIIO 
ERRORII1 
ERRORII2 
ERRORI1I3 
ERRORII4 
ERRORIIS 
ERRORII6 
ERRORIII 
ERRORII6 
ERRORI1I9 
ERRORI20 
ERRORI21 
ERRORI22 


ERRORI23 


400 FORMAT(4X%,27H THE 00 PARAMETER OR INDEX ,44,18H 1S NOT AN INTEGER) _ = 


GO TO 1000 

40S MRITE(6,410) 

410 FORMAT(6X,52H VALUE OF DO PARAMETER IS OUTSIDE OF ALLOWABLE RANGE, 
Go TO 1000 s = 

415 WRITE(6,420) 


__420 FORMAT(6X,32H COMPLEX EXPRESSIONS ARE ILLEGAL) 


ERRORI29 
ERROR130 
ePRORISIL 
ERROR1L32 
ERROR1I33 
ERRORIA4 


Go TO 1000 

425 WRITE(6,430) 

430 FORMAT(6X,24H ILLEGAL VARIABLE FORMAT) 
GO TO 1000 

435 WRITE(6,440) 


ERRORI3S 
ERROR1I36 
ERRORI37 
ERROR1II8 
ERRORI39 


440 FORMAT(4X,39H THIS STATEMENT SHOULD HAVE AN J/O LIST) CC ERRORIHQ 


GO TO 1000 
44S MRITE(4,450) 


ERRORIAL 
ERRORI42 


1ele 450 FORMAT(4X,50H STATEMENT FOLLOWING LOGICAL EXPRESSION IS ILLEGAL) ERRORISS 
162e GO TO 1009 ag = ee = =s __ERRORI4A4 
lo3e 455 WRITE(6,4%60) ERRORI4S 
lo4e 460 FORMAT(6X,44H REAL NUMBER LIES OUTSIDE OF ALLOWABLE RANGE?) ERRORI46 
16Se GO TO 1000 ERRORI4? 
1660 465 WRITE(6,470) ERRORIA4G 
167e 470 FORMAT(6X,42H THIS EQUIVALENCE STATEMENT EXTENDS COMMON) ERRORIAG 
Lose _GO TO 10090 = a = i ____ERRORISO 
169¢ 475 @RITE (6,480) 
17Q¢ 480 FORMAT(6X,40H ILLEGAL VARIABLE IN COMMON BLOCK SESCOM) 
i7ke GO TO 1000 
1720 485 MRITE16,4990) INUM : 
1730 490 FORMAT(6X,12H SUBPROGRAM ,A6e19H HAS INCORRECT TYPE) 
A740 _ SOE a | ee == = we Se ea 
17S 495 WRITE(6,500) INUM 
176e S00 FORMAT(6X,23H WARNING - ARGUMENT NOosI3.34H MAY HAVE INCORRECT DIM 
1778 *ENSTONALITY) 
178¢ GO Ta 1000 = 
1790 S05 WRITE(6.510) INUM 
__1fQe S10 FORMATIA4X,13H ARGUMENT NO.,13,19H HAS INCORRECT TYPE) = . 
181e Go TO 1000 
1aze S15 WRITE(6,520) ee Se 
1830 S20 FORMAT(6X,49H WARNING = THIS MODULE IS NOT IN THE SESCOMP LIST) 
ia4e Go TO 1000 
185e S25 WRITE(6,530) INUM 
ABbe S30 FORMAT(6X,14H THE VARIABLE ,A6,29H PREVIOUSLY APPEARS IN COMMON) 
1a7e Go TO 1000 
1866¢ 535 MRITE(6.540) INUM 
1896 540 FORMAT(6X,13H ARGUMENT NOoeI3,t1H 1S INVALID) 
190¢ GQ TO 1000 = 
191e 54S WRITE(6,550) INUM 
A9Ze 550 FORMAT(6X,13H ARGUMENT NOosl3.29H IS DESIGNATED LOGICAL OUTPUT) 
1930 GO TO 1000 
19460 555 WRITE(6,56Q) INUM 
195¢ 560 FORMAT(6X,29H ILLEGAL COMMON BLOCK NAME = ,A6) 
1960 ¢o TO 1000 
197¢ 565 WRITE(6,570) INUM 
__198¢ 570 FORMAT(6X,41H WARNING = VARIABLE TYPE IN COMMON BLOCK ,A6,41H DOES 
1996 S NOT AGREE WITH INTERFACE DEFINITION) 
200¢ Go 10 1000 = = : = 
z01e 575 WRITE(6,580) INUM 
z02ze 580 FORMAT(6X,14H COMMON BLOCK ,A6s19H HAS INCORRECT SIZE) cao 
203¢ Go TO 1000 
__204e ss 585 WRITE(&,590) =4 —— = me . 
205¢ 590 FORMAT(6X,58H EXTERNAL REFERENCE TABLE OVERFLOW = PROCESSING TERMI 
206¢ SNATEO) 2 - — — 
2076 Go TO 1000 
208¢ $95 WRITE(6,600) ie Rn ee Oa aad 
2096 600 FORMAT(6X,52H COMMON BLOCK TABLE OVERFLOW = PROCESSING TERMINATED) 
210° Go TO 1009 _ 
| 2116 605 WRITE(6,610) INUM 
2126 610 FORMAT(6X,29H ILLEGAL COMMON BLOCK NAME = 4A6) 
2136 GO TO 1000 
2146 615 WRITE(6,620) INUM —s 
21S5e 620 FORMAT(6X,14H COMMON BLOCK ,A6,27H IS NOT IN THE SESCOMP LIST) 
2160 Go TO 4900 — 
| 2178 625 WRITE(6,630) INUM 
| 2180 630 FORMAT(6X,25H CATEGORY 2 COMMON BLOCK ,A6,23H IS NOT GROUPED BY TY 


2198 
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220¢ GO 10 1000 = 
2216 635 WRITE(6,640) INUM,INUM2 
222¢ 640 FORMAT(6X,38H DOUBLE PRECISION OR COMPLEX VARIABLE ,46,56H DOES NO 
2230 ST BEGIN ON AN EVEN LOCATION @ITHIN COMMON BLOCK ,A6) 
2240 GO TO 1000 
225¢ 64S MRITE(6,650) INUM 
2240 650 FORMAT(462,26H VARIABLE IN COMMON BLOCK ,46,16H IS Oy! OF ORDER) 
2276 Go TO 1000 
2288 655 MRITE(6,660) 
229¢ 660 FORMAT(6X,S56H THE COMMON BLOCK SESCOM DOES NOT APPEAR IN THIS PROG 
2300 SRAM) 
231¢ Go TO 1000 
2328 665 MRITE(6,670) INUM “ ee 
2336 670 FORMAT(6X,14H THE DO INDEX ,A6,13H IS REDEFINED) 
2340 RETURN 
235¢ 675 MRITE(6,680) INUM 
2360 680 FORMAT(6X,24H THE VARIABLE DIMENSION ,A6,13H IS REDEFINED) 
237¢ RETURN 
2388 68S MRITE(6,690) INUM =< = koe #= 
2390 690 FORMAT(6X,23H THE ASSIGNED VARIABLE ,A6,24H 1S ILLEGALLY REFERENCE 
2400 $0) 
2416 RETURN 
2420 69S MRITE(6,700) INUM 
2430 700 FORMAT(6X,14H THE VARIABLE ,A6,30H IS REFERENCED BUT NOT DEFINED) 
2440 RETURN eee a 
245e¢ 705 WRITE(6,710) INUM 
2468 710 FORMAT(6X,14H THE VARIABLE ,A6,45H JS REFERENCED ILLEGALLY BY AN A 
| 2476 SSSIGNEO GO TO) 
i 2480 RETURN 
} 2496 745 WRITE(6,720) INUM 
| —__ 2500 _ 220 FORMAT(46X,18H THE DO PARAMETER ,A6,43H IS REDEFINED) 
251¢ RETURN 
| 2520 725 WRITE(6,730) 
J 2530 730 FORMAT(6X,49H THIS MOOULE CONTAINS NO CATEGORY 2 COMMON BLOCKS) 
| 2540 GO TO 1000 
I 2556 735 WRITE(6,740) NUM 
__254e. 740 FORMAT(4X,24H THE ANSI FUNCTION NAME ,46,27H IS MISUSED IN THIS PR 
2576 SOGRAM) 
258¢ Go TO 1000 
| 2590 745 @RITE(6,750) NUM 
| 260¢ 750 FORMAT(6X,14H THE VARIABLE ,A6,60H APPEARS IN A CATEGORY 2 OR 3 CO 
| 2616 SMMON BLOCK BUT IS NEVER USED! 
2620 GO TO 1000 _ —_ s ania a ees = 
| 2636 755 WRITE(6,760) 
| 2440 7460 FORMAT(6%,7SH ARRAY SUBSCRIPT OR IMPLIED DO PARAMETER MAY LIE OUTS 
265¢ SIDE OF ALLOWABLE RANGE) 
266° GO TO 1000 
2670 76S WRITE(6,770) INUM,INUM2 
I _2bf9 770 FORMAT(6X%,22H MIXED MODE COMBINING ,A6,4H M@1TH ,A6) —— <n 
| 2690 GO TO 1000 
| _270¢ 775 WRITE(46,780) INUM 
2716 780 FORMAT(6X,33H INCORRECT EXPONENT AT CHARe NOw 413) 
| 212¢ Go TO 1000 
| 27360 785 WRITE(6,790) INUM 
224 790 FORMAT(6X,47H VAR=CONST CONFUSION IN SUBSCRIPT aT CHAR, NOs sl3d 002 sit 
2756 Go TO 1000 
274¢ 795 WRITE(6.800) INUM,INUM2 


| 


277¢ B00 FORMAT(6X,40H SUBSCRIPT CONSTANT OR VARIABLE OF TYPE ,A6,14H AT CH 


_—__276¢ SARS NOs 13) = ower = 
27960 GO TO 1000 
zeoe 805 WRITE(4.810) INUM 
| 2816 B10 FORMAT(4X,52H TOO MANY SUBSCRIPTS FOR THIS VARIABLE AT CHARe NOw y 
2a2¢ $13) — jeune 
| 28360 Go TO 1000 
| _2B4e __ B15 WRITE(4,820) IMUM Ae = 
| 285¢ 820 FORMAT(6X,51H TOO FEm SUBSCRIPTS FOR THIS VARIABLE AT CHARs NOs , 
28660 $13) SS 
2876 60 To 1000 
f 28860 825 WRITE(6:830) INUM 
| 2890 830 FORMAT(6X,52H ILLEGAL TYPE IN RELATIONAL EXPRESSION AT CHARs NOw y 
| __29Ne Se ee ee =. ’ a 
: 2916 Go To 1000 
/ 2920 835 WRITE(6,840) INUM - 
2930 840 FORMAT(6X,40H TOO MANY ARGUMENTS IN CALLING SEQUENCE 413) 
29460 Go To 1000 ee 
| 2950 845 WRITE(6,850) 
| 2960 BSD FORMAT(6X,41H TOO MANY FUNCTION REFS IN THIS STATEMENT) _ 
} 297¢ GO TO 1000 
| 29860 855 WRITE(6.,860) INUM 
| 2990 840 FORMAT(6X,26H INVALID FORMAL PARAMETER ,A6) 
| 3006 Go TO 1005 Cease 
301¢ 865 WRITE(6,870) INUM 
3o2¢_ 870 FORMAT(4X,19H THE FUNCTION NAME ,A6,33H MAY HAVE BEEN PREVIOUSLY MB 
3030 e1SUSED) 
3o4e GO TO 1000 
30Se 875 WRITE(6,880) INUM 
306¢ @A8D FORMAT(6X,39H ILLEGAL FIELD DESCRIPTOR AT CHARe NOs ,14) 
307¢ GO TO 1000 
ae! on eb 
3096 890 FORMAT(6X,38H TOO MANY FUNCTION DEFINING STATEMENTS) 
31g0¢ Go TO 1000 ae =e 
3ile 895 WRITE(6,900) 
_31Z¢ 900 FORMAT(6X,71H TOO MANY EXTERNAL REFERENCES IN THIS STATEMENT = PRO 
3130 SCESSING TERMINATED) 
Lee GQ TO 1000 = 
31Se 905 WRITE(6,910) 
— F166 910 FORMAT(6X,46H STATEMENT IS TOO LONG = PROCESSING TERMINATED) 
3176 GO TO 1000 
318¢ 94S WRITE( 6,920) 
31960 920 FORMAT(6X,46H SESCOMP LIST OVERFLOW = PROCESSING TERMINATED) 
_320¢ 7 Go 10 1000 = ——— * = 
3216 925 WRITE(6,930) 
3220 930 FORMAT(6X,63H OVERFLOW OF INTERFACE DEFINITION TABLE = PROCESSING 
32360 STERMINATED) 
324e GO TO 1000 at _ 
325¢ 935 WRITE(6,940) 
3266 940 FORMAT(6X,32H TOO MANY EQUIVALENCED VARIABLES) 
3276 GO TO 1000 
328¢ 945 WRITE (6.950) 
3296 950 FORMAT(6X,61H TOO MANY VARIABLES IN THIS STATEMENT = PROCESSING TE 
330¢ SRMINATED) , = 
3316 1000 WRITE(6,1) ERRORIS3 
—— —————— RETURN —S ERRORISY _ 
3336 END ERRORISS 
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le SUBROUTINE EXPR EXPR 
2e COMMON A(1326),0(500) »L0TBL (8,500) sINITIO(3) LASTIO(3),1SRCH(3), RICH 
ae © JPTIRsNaM,JTYPLSTART sNZaIFNCNM,LOGIDNATID.IDIYP.NID LOC, 
4e@ 2 LTYP,ITYP,IBLKDT,MODE,JERR,IDES RICH 
Sse COMMON/FUNC/IFNCRA(5,17) »MARGS,ILARGS(SO) ,FNCLOC(S) ,NFUNC 
ee COMMON/STRING/NTYPE »NSTR,STR( SOO) EXPR 
7e COMMON/LIST/NLIST,NINTFC,ISUBLT(3,200),INTFAC(SO0) 
Be COMMON/BASBLK/I BLOCK (2500) »NBLOCK ,NB,yNBRNCH 
cry INTEGER FNCLOC,OPRA(6),81TPUT,81IGET —_ 
10°¢ INTEGER O,ASTRIK,DEE ,EQUALS,STR,A,COMMA,RPAR » BLANK EXPR 
lle DATA (OPRACI) leh eS) /IHty tHe eH IH IH) ple /,ASTRIK/ILHO/,DEESIHD/EXPR 
t2e 1 ,EQUALS/IHE/,COMMA/IH,/+RPAR/IH)/ +LPAR/IH(/,BLANK/IH / EXPR 
i3e LP=o CH34 
lve NFUNC#O CH34 
_1Se- KeQ = 
lée TEXPST#NBLOCK#1 EXPR 
17e MARGSsO EXPR 
160 200 K=K+elt 
tge CALL GNLE EXPR 
200 IFC UTYP eE€Q6 O) RETURN EXPR 
21a LELUIYP eNE~s 3) GO TO 20 EXER 
22e IF(LTYP e€Qe % eORe ITYP «EQe 6) GO TO 2 
230 IFCITYP cEQe 1 eORe ITYP -EQe 35) GO TO | 
24e GO TO § 
25e 1 LF CDCE) e€Q. EQUALS) RETURN ExPR 
26¢ GO T0 5 EXPR 
— 27e --2 FFAD4ED ©E Qe RRAR cANDe LP wEQe $+ RETURN EXPR 
28e 5 DO 10 I#1,6 EXPR 
290 IF (OC) eNEs OPRA(I)) GO TO 10 ExPR 
30e¢ STR(K) #1 EXPR 
318 IF(L .EQe 4) GO TO 6 EXPR 
32e IF(IT «€Q@+ S) GO TO 7 EXPR 
——__332— = GO TO 14100 EXPR 
34e 6 LPeLPel EXPR 
3Sa GO TO 100 EXPR 
360 7 LPeLPel EXPR 
37e GO TO 100 EXPR 
360 10 CONTINUE EXPR 
398 —__._-IF{D(1) «NE. EQUALS) GO TO 12 ~ = EXPR 
4Q¢ STR(K) #=18 EXPR 
41e Go To 100 EXPR 
420 12 IF(OCL) eNEs ASTRIK) GO To 110 EXPR 
430 IF(0(2) eEQs. ASTRIK sANDs M oGTo 1) GO TO 1S EXPR 
44e STR(K)a=7 EXPR 
i EG ve ———— ae aa EXPR 
460 15 STR(Kian8 EXPR 
479 GO TO 100 EXPR 
480 20 IF(JTYP eNEe 7) GO TO 30 EXPR 
49@ IF(LOGID .GTe 9%) GO TO 25 EXPR 
506¢ STRIK)#=(LOGIO+¢B) EXPR 
Sie - Bek 0 Oa ot SS ee = __EXPR 
S2e 25 STR(K)#LSTART*4400004M01000000 EXPR 
S3e Go To 100 EXPR 
S4e 30 IF(UTYP oNEo 4) GO TO 40 EXPR 
SSe IF(IOES eEQ@e OP GO TO 35 EXPR 
See STRIKIELSTART*420000+H91000000 EXPR 
Ny a reermreees YS ole ON WY: as a — —EXPR 
S8e 35 CONTINUE EXPR 
s7e STRI(K) *®LSTART*400000¢me1000000 EXPR 


40e GO TO 100 EXPR 76 


éie 40 IF(JTYP eNEs 6) GO TQ 50 = ExPR 77 
62¢ STR(K)@LSTART*410000+¢mMe1000000 ExPR 78 
eye GO TO 190 EXPR 79 
b4e SO IF(UTYP «NE. 5S) GO TO 55 
65¢ STRIK)#LSTART*430000+M*1000000 EXPR 61 
bee Go TO 100 ExXPR 62 
aze __SS IF(JTYP sNE&. 3) GO TO 60 _— 

686 STRIKVSELSTART *450000+H01000000 

ove IFLIVYP eNEw 8) CALL ERROR(2Z3,10M1,10M2) 

70¢ GO TO 100 

Tie 60 IF(JTYP eNEe 2) GO TO 110 EXPR 63 
72° CALL SEARCH EXPR 64 
239 : IBETAsO — ——- ——EEEE EXPR £83 
THe IF(NEXT(JPTR) «NEs LPAR) GO TO 64 EXPR 66 
7se IFCISRCH(1) «E@e QO) GO TO 42 EXPR 867 
76° IF(BITGET(LOTBL(3,LOC),1,1) e£Q6 1) GO TO 67 

77° CALL S@ITCH EXPR 89 
780 IBETA®S EXPR 90 
234 GO TO 43 = : SE nN ——- 
80° 62 IBETAsS EXPR 92 
ale IFC ISRCH(2) s€@e 1) GO TO 63 EXPR 93 
82° 1DTYP=2 ExXPR 94 
Bae CALL STORE EXPR 9S 
B4e LOC®NIO EXPR 96 
ase 00 70 Iml,NLIST fo 

Boe IFC ISUBLT(1,1) eNEs TOTBL(1,L0C)) GO TO 70 

a7e IF (BITGET(ISUBLT(2,1)410,4) «NEs 4) GO TO 43 

Bee ITPeBITGET(ISUBLT(2,1),13,3) 

age JOTBL(3,LOC)  SBITPUT(IOTBL(3,L0C),1TP,10) 

708 LOTBL(3, LOCI sBITPUTCLOTBL(3, LOCI yt 5400 

——_— ) 2 1 Ce: SES Se Sed ae oe : eee) | 
920 70 CONTINUE EXPR 102 
73° 63 NFUNC#NFUNC#i EXPR 103 
940 IF(NFUNC .GTe 5) GO TO 120 
vse FNCLOC{NFUNC) #LOC EXPR 104 
968 GO TO 68 EXPR 105 
IPG AS EIR CRE) Ne bs OO Oe ee SS eee Ss Se! 
98¢ IF(NXTIO .NE«e ITFNCNM) CALL ERROR(1O,NXTIO,KOM2) 

990 65 SFCISRCH(1L) s&@e 1) GO TO 67 

100° 1OTYPel EXPR 109 

10le CALL STORE EXPR 110 

toze LOCeNID EXPR Iti 

__103¢ : GO TO 68 ngs ee ree ee 5 ee ee 

lo4e 67 IBETASBITGET(IOTB8L(3,L0C),7,6) 

10s¢ TFAUNXTIO eNEe LFNCNM) GO TO 68 

106¢ IBETA#0 

107° LOC#IOES 

1086 68 CALL IMPTYP EXPR 116 q 
—— ZO: —_ JALPHSBITGET(IDIBL(3,LOC),IOsddod sed eee ee 

1108 JPTR#IPTReI EXPR 118 

jie STRIK)*LOC+1LO000*1ALPH* 1000001 BETA+1000000eNM EXPR 119 

ize 100 NSTR#K ExPR 138 

1i3je IFQ(NSTR eGTe $00) GO TO 130 

1i4e GO TO 200 

—-L1S@. UO CALL ERROR(23,K0M1,K0M2) — —————— 

11i6e RETURN 
lize 120 CALL ERROR(9O0s1DM1,10M2) 
1186 STOP 
ee! bk 130 CALL ERROR(QLsITOMistOM2) ee —E—E ee 
120¢ STOP 
a2ie END EXPR 141 
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le SUBROUTINE EXPRCK ExPReK 2 
ze COMMON A(1326),0(500),10TBL (8,500) ,INITIOCS),LASTIOC SI» ESROMES), RICH 2 
3e © JPTRINMSJTYPALSTART NZ a LFNCNMLOGIDINATIDSLOTYP NID SL OCs 
4e 2 LTYP,ITYP,IBLKDT,MODE,ILERR,IOES RICH S 
———) COMMON/TYP/NQQ@,RHSTYP.NQZ2,NQ3,L HST YP 
oe DIMENSION 1A(5,5) EXPRCK 5% 
7e INTEGER RHSTYP EAXPRCK @ 
Be DATA COTACL ST Obs Sdedeb se SISE OOo eOsOrb se OyOs Del sOul yl aD, EKPRCK 7 
9e 1 $20012150:0:0,0,0.17 EAPRCR 6 
10°¢ IFCLACLHSTYP,RHSTYPe1) e&€Qe O) CALL ERROR(27,KOM1,KOM2Z) 
| ee RETURN EAPRCKIG 
120 ENO EXPRCKIL 
le “SUBROUTINE FLOMCK Ps FLOMmCK 2 
2e COMMON A(1326),0(500),10TBL(8,500) ,INITIO(3) .LASTIO(3),ISRCH( 3S), RICH 2 
= ae © SPTRNsMsJTYPSLSTART sNZsLFNCNM,LOGIDNATID IDIYPsNID LOC, 
4e 2 LTYP,ITYP,1BLKOT,MODE,IERR,IOES RICH “ 
Se COMMON/BASBLK/IBLOCK( 2500) sNBLOCK NB, NBRNCH 
6e COMMON/DOLOOP/ISTACK(4,50) sNSTACK,ILOOP,IOVFL A 
Je OCOMMON/LABELS/STATRA(2,200) ,NLABEL : FLOMCK 6@ 
Be COMMON/FLOM/IFL,IRP 
ge DIMENSION IPATH(100),1STCK(100) FLOMCK 7 
10¢ INTEGER FLWLST( 100) ,BRANCH»STATRA FLO@CK 6 
_iie INTEGER BITPUT,BITGET FLOCK 
i2e EQUIVALENCE CIPATH( DD sACTDISCISTCK(C LT) ,ACHTOLDD CFL OLSTOL) AC 201)) 
—__Lije_ _IFLIFL s£Q, -1) GO TO 30C0 2 ee 
l4e IRK#0 
1se NSTCK#Q 
ltée NFLOWeO 
17e_ NOC#0 
16e NPTHS#O 
Sea SE RSE aS Se ee 3 FLOM@CKIit 
20¢ CALL CHKLST cu34 35 
21e WRITE(6,8) 
226 8B FORMAT(IHI,38Heeeeee RESULTS OF FLOW ANALYSIS eeeeee//) 
23¢ 5 0O 10 Ie#l,nI0 FLOacKi3 
240 10 IOTBL(2,1)e10TBL( 6,1) FLOMCKIY 
ae tt ee 12 IF(NFLOM .EQs O} GO TO 20 FLOMCKIS 
26¢ NOC#0 FLOMCKI6 
27e¢ DO 1S I*1,NFLO® FLOMCKI7 
28¢ IFCTABSCFLWLST41)) eNEs IBLKST) GO TO 15S 
290 NOC#NOC#l FLOMCKIY 
30¢ 15 CONTINUE FLOa@CK20 
BE et ROT GO U6 SS Ree aaa 
32e 20 NFLOW#NFLOWel FLOaCK22 
aie IF(NFLOW .GTe 100) GO TO 4Q00 
34e FLWLSTI(NFLOW)@®IBLKST FLOMCK23 
ase TENO=@BITGET(IBLOCK(IBLKST).28,16)-1 FLOMCK24 
soe IF (TEND «EQ. =-1) TEND#®NBLOCK FLOWCK2S 
ee: 3 ee _NBREBITGETCIBLOCK(IBLKST),6,6) FC FLOWCK26 
3860 ISTART#IEND-NBReI FLOMCK27 
390 IBLKST#eNXTBLK(ISTART,IEND) FLOMCK26 
400 IF(NBR «EQ. 1) GO TO 25 FLOMCK29 
41e FLALSTI(NFLOW) =-FLALST INFLOW) FLOMCK30 
42¢ NSTCK@ENSTCKel FLOMCK3) 
eee, | TFUNSTCK aGTe 100) GO TO S000 eae 
44e ISTCK(NSTCK) @=NXTBLK(IEND,IEND) FLOWCK32 
4Se IF (NBR eE€Q. 2) GO TO 25 FLOMCK33 
46e 00 22 J#3,NBR FLOMCK34 
47¢@ NSTCKENSTCKe] FLOMCK3S 
4Be IF(NSTCK «GT. 100) GO TO S000 
___499¢  __s 22 ESTCKINSTCK ONXTBLK(TEND=-ye2,1END) FLOMCK36 
soe 25 IFCIBLKST .NEe OF GO TO 12 FLOWCK3? 
Sie NPATH#Q FLOMCK38 
S2e NPTHS#NPTHS+1 FLOMCKI? 
S3e 00 1000 I=i,NFLOW FLOMCK4O 
S4e BRANCH#IABS(FLWLSTI(I)) FLOaCcK4 
ai SSe ISTART#BRANCH*1 aaa FLOMCK42 
Sée NXBLOK#SBITGET( IBLOCK (BRANCH) ,28,16) FLOM@CK4) 


S7e¢ IF (NXBLOK ,EQe OF NXBLOK#NBLOCK+] FLOACK 4S 
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S8e ISL=BILTGET( IBLOCK (BRANCH) ,36,8) FLOMCK4S 


Sve TLOOP=BITGET(IBLOCK(BRANCH) 12:6) FLOMCK 46 
60¢ NBR#BITGET( IBLOCK (BRANCH) ,6,6) FLOWCK47 
6ie TEND=NABLOK-NBR-] FLOMCK4S 
62e IFC ISL eEQ@- OF GO TO 45 FLOMCK4? 
é3e NPATH®NPATH#1 FLOMCKSO 
b4e IPATH(NPATH) SSTATRACE,ISL) FLOMCKSI 
45 STATRAL2Z,1SLISBIIPUT(STATRA(2Z,1SLI 44418) FLOMCKS2 
660 45 IFC IBLOCK(ISTART) «LT. 1000) GO TO 1000 FLOM@CKS3 
67e OO SOO JeISTART,IEND FLOMCKS4 
6660 IT=IBLOCK(4y)/1000 FLOM@CKSS 
69e LOC#IBLOCK(J)-1T#1000 FLOWCKS6 
70¢ GO 10(50,60,70,80,90,100,200),1T 
Jie SO IFA(BIIGETELOTBLI3,LOCI»43,1) «EQ. 1) GO TO 120 FLoOacKss 
72¢ IF(TOTBL(2,LO0C) «EQ@-e 2) GO TO SS FLOMCKS? 
730 IFCLOTBL(2,L0C) .EQ@e 4) GO TO 180 
7T4e S2 I1DTBL(2,L0C)#1 FLOWCK60 
7Se 30 IF(BITGET(IOTBL(3,L0CI,17,1) «EQ. OF GO TO SUD 
768 KTYPEsBITGET(IOTBL(3,L0C),1053) FLOMCK62 
710 NXQVeLOC _—___—_—_— . —— FL OacKns3 
780 S53 NXQV*IOTBLI7,NXKQV) FLOWCK64 
790 IF UNXQV 2€Q- LOC) GO TO S00 FLOMCK6S 
806 IFC BITGET(LOTBL(3,NXQV),1003) «EQ. KTYPE) GO TO 54 FLOMCK66 
Ble 1OTBL(2,NXQV)=#0 FLOMCK67 
82e GO TO 53 FLOWCK686 
Bie S4 IDTBL(2,NAsQV)a1 —— _.___FLOMCK 6? 
B4e GO TO $3 FLOWCK70 
8Se SS IF(ILOOP .EQ@e O) GO TO S2 FLOMCK7L 
Bée S7 TF(LOC sEQ@e ISTACK(4,I1LO0P)) GO TO 110 FLOMCK72 
B7e IF CiSTACK(3,I1LOOP) «EQ. OF GO TO S2 FLOMCK73 
age ILOOP#ISTACK(3,ILOOP) FLOMCK74 
fees GO 10 5S? —_ a — = __FLOMCKIS 
906 60 LF(LOTBL(Z2,LO0C)? «EQ. DO) GO TO 140 FLOMCK76 
ie IFCIOTBL(2,LOC) .EQs 3) GOTO 130 FLOMCK77 
92e GO TO 500 FLOMCK78 
930 70 IF (BITGET(IOTBL(3,L0C),13,1) sEQs 13 GO TO 120 FLOM@CK79 
94e IFCIOTBL(Z2,L0C) eEQ@e 2) GO TO 75 FLOMCKBO 
—_ 2S@ 72 LOTBL(2,L0C}a2 — = — — —. FLOWCK BS) 
960 GO TO S00 FLOWCK82 
97° 7S LF¢ILOOP ERs OF GO TO 72 FLOMCKB3 
9360 77 TFC(LOC eE€Qe ISTACK(4,1L00P)) GO TO 110 FLOWCK84 
729 IFCISTACK(3,1LO0OP) .«EQ@e OF GO TO 72 FLOMCKBS 
tage TLOOPHEISTACK(3,1LG0P} FLORCKS6 
SS GO IQ 77 ee. — = -FLOMCKB7 _ 
102¢ 8O IF(BITGET(IOTBL(3,L0C),13,1) e&Q@. 1) GO TO 120 FLOMCKSB 
1O3¢ IFC LOTBL(2,L0C) .EQ@e2 2) GO TO BS == FLOMCKB? 
104e 82 1OTBL(2,L0C)#3 FLOMCK9O 
4ase eo TO S00 Le re __ FLOWCK91 
106e 68S IFC(ILOOP ,EQ@e OP GO TO 82 FLOMCK92 
SS B7 JF(LOC sEQ@e ISTACK(4,1L00P)) GO TO 110 FLOWCK93 
10ee IF CISTACK(3,ILOOP) eEQe O) GO TO 82 FLOWCKS4 
109¢ ILOOP#ISTACK(3,ILOOP) FLOWCK9S 
siGe GO TO 87 FLOMCK96 
Alle 90 IFCIOTBL(2,L0C) eNEe 3) GO TO 150 FLOWCK97 
bi2ze 60 TO 500 FLOMCK9S 
a ESS ______ $06 LOTEL62,066).80 — — FLOCK ?? 
lide Go TO S00 FLOMCc100 
1ise 18D JLOOPsAITGETLIDTBLI3,L00),34517) 
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lhée 185 IF(ILOOP .EQ. JLOOP) GO TO 160 
REFS _ TLOOP#ISTACK(3,ILOOP) = — ge 
Lise IF(ILOOP ,E@. OF GO TO 30 
lige GO TO 185 
1200 200 IF¢ITOTBL(2,L0C) «EQ. OG) GO TO 140 
i2te TFC LOTBLI2.L0C) -EQe 3) GO TO 130 
i22ze PTOTBL(2,LOC) #4 

-— zis —__- __@0 TO $00 : ——— = < = =e 
124e 110 LERC#67 
125¢ Go TO 400 
l26e 120 IERC#68 
iz7e @o TO 400 
1266 130 IERC#69 

—— kar GO TO 400 = : oS ees 
$30¢ 840 IERC#70 
i3jie go TO 400 
i32e 150 LERC#72t 
L3ie GO TO 400 
l34e 160 LERC*72 

—____J3S5e 490 IRxel fenaenots Pee te 
13660 IFC TOTBL(6,L0C) «EQe 1) GO TO SOO 
i376 TOTBL(&sLOC)} #2 
1366 CALL ERROR(TERC,IOTBL(1,LOC),KOM2) 
139¢ IF(IERC eNEs 70 .ORe NPATH .E@e Gi GO TO 5Q0 
140¢ WRITE(6,2842) CIPATH(K) »Ked »NPATH) FLOBCIL6 
L4ie 142 FORMAT(6X,1SH ALONG THE PATH,(1016)) et __FLOMCII7 
t42ze 500 CONTINUE FLOMCI22 
143e6¢ 1000 CONTINVE FLOWCI23 
144e 1500 IF(FLWLST(NFLOM? .GT. o) GO TO 1600 FLOMCI24% 
14Se IBLKST*IABS(ISTCK(NSTCK)) = : FLlomci2s 
146¢ IFCISTCKINSTCK)D oh Te OF FLALST(NFLOW) S=FLALSTINFLOW) FLOMCi2s 
L42e NSICKSNSICK=) _ sor —— FLOwCI27 
1486 NOC#O FLOMCci28 
149e¢ eo ro § FLOMCcI29 
1506¢ 1600 NFLOWeNFLOW-1 FLOwCc130 
iste IF(NFLOW .GTe OF GO TO 1500 __ FLOweII? 
1S2e IF(NLABEL 2EQe 0) GO TO 2010 
AS je E 20 2000 J=si,NLAREL i —_ — FLOWCI33 
1S4e TF(BLTGETCSTATRAC2,J15626) eEQ. 28) GO TO 2000 FLOwC134 
isse IFC BITGET(STATRAGZsJ1,1805' +EQe 1) GO TO 2000 
1Sé6e WRITE(6,1800) STATRA(I,J) 
157° IRX#) 
1S8e 1800 FORMAT(6X%,57H THERE IS NO COMPLETE PATH THAT CONTAINS STATEMENT NUFLOWCI136 

=——187e______§__ [RGER LEA) = = = <2 = — FLOMC1 37 
160¢ 2000 CONTINUE FLOMCL38 
1éte 2010 IFCIRK c€Q- Q) WRITE(6,2020) 
162e 2020 FORMAT(//6X,16H NO ERRORS FOUND) 
163e WRITE(6,2100) NPTHS 
l64%e Z21GO FORMAT(//////6%,25H NUMBER OF PATHS CHECKED~,16) FLOwci40 
Lose ___ RETURN. = - = = = s = _FLOwCI4) 
1660 3000 MRITE(6,3001) 
}67¢ 3001 FORMAT(//31X%,57H FLOW ANALYSIS WAS NOT PERFORMED DUE TO ERRORS IN 
1686 @PROGRAM) 
169¢ TFL eIRP ol 
170¢ RETURN 

ah FEC. AGRE GRETE CA GRORED ee 
372¢ 4001 FORMAT(//29X,63H TABLE OVERFLOW DURING FLOW ANALYSIS = FLOW ANALYS 
173¢ $1S TERMINATED) = 
174e RETURN 

me S000 MRITE( 46,5901) ee = = — 
176¢e S001 FORAAT(//29X,63H STACK OVERFLO® DURING FLOW ANALYSIS = FLOW ANALYS 
177e SiS TERMINATED) 
1766 RETURN 
1798 End FLOBCI 42 


le SUBROUTINE FNCSTR FNCSTR 2 


2e COMMON A(1326),0(500),10T8L (8.500) ,INITIO(C3) ,LASTIO(3},1SRCHI3), RICH 2 
je © JPIR NM JTYPALSTARTsNZa TI FNCNMLOGIDNATID,IDIYPsNIDsLOC, | a — 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IOES RICH 4 
Se COMMON/FUNC/IFNCRA(S,17) »MARGS,IARGS(50) sFNCLOC (5) sNFUNC 

oe COMMON/LIST/NLIST,NINTFC,ISUBLT(3,200),INTFAC(SOO) 
Te INTEGER FNCLOC,BITPUT.BITGET FNCSTR 6 
Be TF CNFUNC 4.EQe O) RETURN FNCSTR 7 

= ¢o-— Do 40 Pet MEUNe : a _FNCSIR B 

10¢ LOCsFNCLOC(I) FNCSTR 9 
ile IF(BITGETCIOTBL(3,L0C),20,1) «E@se 1) GO TO SO 

i2e NARGweIFNCRA(I,1) FNCSTRIO 
ije LYAR=Q : : = ee FA OX = 
i4e ITPsBITGETCIOTBL(3,L0C),10,3) 

ise IF(BITGETCLOTBL(3,L0C),18,1) eEQ@e 1) GO TO 20 FNCSTRIL 
lée TOTBL(3,LOC)SBITPUT(IOTBL(3,L0C),1,18) FNCSTRI2 
17e 00 S Jwl,NLIST 

16e IFC LTOTBL(1,LOC) eNEs ISUBLT(1,4)) GO TO S 

19a LOTBLA3,LOC )mBITPUTLLOTBL43,LOC}i,J, 36) _ ---— —~———_—- 
20¢ LISTLC#J 

21e GO TO 28 

22e¢ 5S CONTINUE 

23¢ CALL ERROR(S2,KOMI,KOM2) 

240 NLIST#NLISTeI 

2Sea LEANLIST .GT. 200) GO TO 60 ___ = ——— — 

26¢ ISUBLT(EsNLISTISIOTBL(E,LOC) 

278 IDIBLi3,LOC) mBITPUT(IDTBL(3,L0C),NLIST,36) 

28e IPTRENINTFCel] 

298 IFCITYP s€Q. 8 sANDOe I oEQe 8) ITPaQ 

30¢ ISUBLT(2sNLISTISBITPUT(O,ITP,I3) 

jis LSUBLTA2ZsNLISTI MBITPUTLISUBLTLI2Z NLIST) -NARG 6} 

32e ISUBLTUJsNLIST)SIPTR 

33e NINTFCwIPIR¢ (NARG<1)74 

34e IF(NINTFC «GTe S00! GO TO 70 

3Se OO 10 JalPTR,NINTFC 

see 10 INTFAC( JI @ITFNCRACI,J-IPTRo2) 

32a 6o 10 40 —— — 2 ——— ——— 

38e 20 LISTLCHBITGETI(IDTBL(3,10C0),36,9) 

ise 21 [PTReISUBLTI3,LISTLC) 

40¢ TF(CBETGETCISUBLT(2,LISTLC) 51451) cEQ@e 1? GO TO 22 

Sie NARZ2SBITGETCISUBLT(2,LISTLC) 56,6) 

42e IF CNARG «NEw NARZ) CALL ERROR(26,10TBLE1,LOC),KOM2) 

Sie NARGS@MINQ(NARG,NAR2) — _ 
“4e 60 TO 24 

4Se 22 IVARei 

4ee TF (MARG ol Te 2) CALL ERROR(26,10TBL(1,L0C),KDM2) 

478 NARGS@NARG 

486 ITPLeBILIGETCINTFACCIPTRI,3,3) 

49a MOLMIaBIIGETSINIFACLIPIRI, 6,33 a a 

soe 24 TFCITYP® «EGe 8 sANDe I cEQ@e 1) GO TO 25 

Sie TF (BITGETCISUBLT(2,LISTLC},10.4) .EQs 4) GO TO 25 = = 

S2e JTPOBITGETCISUBLT(Z2,LESTLC},13,33 

Sie IFC STP oNEw ITP) CALL ERRORI 49, IOTBL(1,LOC),KOM2) ee 

S4e 25 NOPTReIPTRe (NARGS<1)/4 

Sse KOUNTsO — bias 

Sée 00 32 K#IPTR,NOPTR 

S7e ICOLie-6 —— = See 

Se 1COL2e-3 

S?e 00 32 Jel,4 : A ee pe 

606 KOUNT#KOUNT#1 

fie LE{KOUNT .GIe NARGS) GO TO 40 _ _ 

426 TCOLL@ICOLIe? 

aie ICOL2Z#ICOL2¢9 aes —— 

b4e IFCIVAR sEQ6 1) GO TO 26 

Se LTPL@BITGETCINTFACIK) s1COLA,9) — 

660 NOIMI@BITGETCINTFAC(K),1COL2s3) 

= > | ee a ee a anes ee ia ee 
6B¢ NDIMZ=BITGETCIFNCRACI sK=IPTR*2),1COL2,3) 
Ave IFCNDIML oNEs MOIM2) CALL ERROR(SO,KOUNT,KDM2) — 


Ls 
+4 


70e IFUITPZ «EQ. OF GO TO 32 
Tie __IFCLTPL »€Q. 0) GO TO 28 , — Seas 
72e IFCITPL oNE. ETP2) CALL ERROR(51,KOUNT,KOM2) 
730 GO TO 32 
THe 28 INTFAC(K)@BITPUTC(INTFAC(K),ITP2,1COLI) 
7Se 32 CONTINUE 
760 GO TO 40 
ee OD CALE SENOS —S——— SSS ee 
780 40 CONTINUE 
(od fee RETURN FNCSTR46 
8060 60 CALL ERROR(92,10M1,1062? 
gle stop © 
B2e 70 CALL ERROR(93,10M1,10M2! 
ee Ss Se ES ee oS ee = ee ; 
B4e ENO FNCSTRA 
Te SUBROUTINE FORM 
——4e _COMMON/LVARGS/LVFUNC LYVARGsL VVAD IL VYPOSsLYVIYP,iVVAL, = 
3e *+LVHEAD »LVVNVL p»LVDEST,LVVALS(10) »LVTYPE( 10) ,LVSKIP 
= See ___ COMMON/LVTABL/LYTSIZ,LVMAPL LI/LYVSFQ/LVSIZE,i vSQSP( A) 
Se COMMON /HL/ HOL,ACTION,FUNCI,FUNC2,FUNC3,LEFT,RIGHT,STRING 
ey Ce COMMON /VAR/ VFOR,NCHARNCHARP CHAR, NOICT . 
7e COMMON /TYP/ NARRAY,TYPEL,TYPE2,ERRFLG 
__fie COMMON /STRING/ NIYPE,NSTR,SIR ss a 
90 INTEGER BITPUT,BITGET 
__10¢ INTEGER YFOR(15),CHAR,SIR(1) 
lle LOGICAL ERRFLG 
= = 9s EXECUTE 
13e IF (CHAR «NE IHX) NDICT==NDICT 
ee NCHARPSNCHARP SL = : 
ise STRINCHARP) #NDICT 
Lae IF tsNOTs ERRFLG) RETURN — St 
i7e NCHAR@NCHARSI 
Vt Oe NC#ji+(NCHARP=J)/8 : = == 
19¢ ICHAR®BITGET(CHAR,6,6) 
___20¢ VFOR(NC) @BI TPUT(VFOR(NC) sICHAR, 6@NCHAR) 
216 IF(NCHAR .EQ@e 8) NCHAR#O 
22° RETURN 
23¢ END 


a 


te SUBROUTINE FORMEL FORM 2 
ze COMMON A(1326),0(500),10TBL(8,500) ,INITID(3),LASTID(3),!/SRCH(3), RICH j 
3a @ JPIR,N,M,JTYP,.STARI N24, FNCNM,LOGID,NXTID,IDIYP,NIiD,LOC, = q 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IOES RICH 4 
Se INTEGER 0,B1ITGET } 
ée OIMENSION ILCHAR(16) 
7e DATA ILCHAR/ 1425364535537 ,38 5492543544595 547 458559562 563/ 
Be GO TO0(100,10,20,100,40,100,100,100) ,yTYP ; 

i $0 CALL CAA(O,M NETEO, : es 4 
10¢ RETURN FORM 7 ! 
ile 20 00 25 Iel,10 FORM 8 3 
ize IF(DCL) eNEs IHH) GO TO 25 FORM 9 j 
ije CALL CAI(DsI-1,N2) — FORM 10 P 
140 IF(N2 «LT. 1) GO TO 110 

SS EE ts ee ee aes —_ ———— FORM ii 

loe IF(M .GT. SOO) CALL ERROR(S,KOMI,KOM2) 

i7e JPTR#=LSTART¢M B: FORM 12 

186 IStelel 

ive DO 22 veIST.M 

2060 ICHAR=BITGET(D(J) 46,6) 

SS — OO 22 Kel,14 = = 

22° IFC ICHAR .E€Qe6 ILCHAR(K)) GO TO 120 7 
230 22 CONTINUE — — - 
z4e IF(ITYP «EQ. 28) RETURN FORK 13 

_2Se za ___IF(N2 4G6Ty 4) CALL ERROR(5,KOMI,KOM2) —_____— ; 
268 RETURN FORM 15 ‘ 
27° 25 CONTINUE FORM 16 
286 CALL ERROR(3,KOM1,KOM2) 4 
29¢ RETURN . FORM 18 ; 
30° 40 CALL CAI(D,MyN2) FORM 21 ‘ 
Jie (100 RETURN | po on FORM 31 | } 
32e 110 CALL ERROR(7,KOM1,KOM2) : 
33e RETURN 

34e 120 CALL ERROR(23,KDM1,KDM2) 

350 RETURN ——— 


36e END FORM 32 3 


le SUBROUTINE FRMAT FRMAT 2 
_2e COMMON AL1326),0(500) ,1DTBL(8s500) INITIDO( 3) LASTIO( 3), ISRCH(3), RICH * 

3e © JPTRINM,JTYP,LSTART NZ, 1FNCNM,LOGID,NATID,IDTYPyNIDyLOC, 

te 2 LIYP,ITYP,IBLKOT,MODE,IERR,IDES RICH 4 

Se COMMON/FORMAT/IDESST,IDESND,IGPST,IGPND,IGRP,SEPST,SEPND» 

oe A DIR,ICOM,ISEP FRMAT & 

Te OIMENSION RPLOC(20),1ALPH(6) FRMAT 6 
Be INTEGER A,RPLOC,AICH,RPAR,BLANK,SFPST,SEPND,OIR — FRMAT 7 

Ge DATA BLANK/IH /,AICH/IHH/,LPAR/IH(/,RPAR/IHI/ FRMAT 86 
ide DATA (IALPH( 1) sL #1, 6) ZIHF yp LHOSITHRALHMGIHASIMT/ FRMAT ? 
Ile IFRMT#O FrRmat 10 
12e OO 4 [else —— —— —— aes FRMAT Jb 
I3e IF(NEXT(JPTR) «NEe TALPH(I1)) GO TO 70 FRMAT 12 
l4e 4 CONTINUE FRMAT 13 
1Se NSTARTsJPTR FRMAT 14 
14e LF(NEXT(JPTR) 2NEw LPAR? GO TO 70 FRMAT 1S 
17e 00 10 I#1I,N FRMAT 16 
Efe. REE EVOR CUP ER) 2666 2360" 0 Ee 

19¢ IF(UPTR «GT. N) GO TO 12 
2Q¢ @Q TO 10 
21¢ 1 JPTReJPTReI 
22e CALL GNLE FRMAT 17 
236 IF(UTYP «NE» 3) GO TO 10 FRMAT 1% 
24e s __ sd dsJPTReb Se : FRMAT 20 
25e IH#0 FRMAT 21 
2ae OQ S JaLSTART,wJ1 FRMAT 22 
27¢ IF(TH «EQ, 1) GO TO 3 FRMAT 23 
280 IFCLA(J) «EQ. AICH) IHel FRMAT 24 
296 60 TO S$ FRMAT 25 
as eens SS SSS sss ERMAI 24 
3ie S CONTINUE FRMAT 27 
ize 10 CONTINUE FRMAT 28 
33e 12 NPAR*®O FRMAT 29 
ase NRP ad FRMAT 30 
35¢ 00 20 IaNSTART,N FRMAT 31 
340 _ : IF(ALi) .NE. L PAR) GO TO 45. ae FRMAT 32 
370 NPAR@NPARS1 FRMAT 33 
3Be IF(NPAR .6T.s 3) GO TO 70 FRMAT 34 
39¢e GO TO 20 FRMAT 35 
408 45 IF(A(I) .NE. RPAR) GO TO 20 _ FRMAI 36 
“te NPARENPAR@] FRMAT 37 
42a ss MRP RPO) = <<< EEA 3S 
43e RPLOCINRP) oe] FRMAT 39 
44@ IF(NPAR sLT.s O) GO TO 70 FRMAT 40 
4Se 20 CONTINUE FRMAT 41 
4he IF(NPAR eNEs QO) GO TO 70 FRMAT 42 
470 IF CNEXTCRPLOC(NRP) 41) «NEe BLANK) GO TO 70 FRMAT 43 
Lee a St | Le —— = ERAT 94 
490 IGPNO#RPLOC(1) FRMAT 45 
SO¢ 00 25 J#i,N = FRMAT 46 
Sle Ke IGPNO-J FRMAT 47 
Sze TFCACK) eNEe LPAR) GO TO 25 FRMAT 48 
Sie IGPST#K FRMAT 49 
| rs eee . — = < _FRMAT $0 
550 25 CONTINUE FRMAT SI 
Sée 30 CALL GROUP FRMAT S2 
S7e IFC IGRP «EQ. OF RETURN FRMAT S3 
Sse 1F(L .€Qe NRP} GO TO 65 = = FRAT S4 
59e JPTREIGPST=1 FRMAT SS 
oQe  __s 3 CONTINUE = a 
éle IFCIPREV(UPTR) «EQ. 2) GO TO 31 
o2z¢ IGPST#JPTRe2 FRMAT $7 
630 60 TO 35 FRMAT S8 
o4e 3S SEPST#IGPNDeL FRMAT 60 
65e OIRe®! 
he AL SEP AS = ERMAT 42 
676 IFCISEP «NEs 1) GO TO 40 FRMAT 63 
46e I1GPNO#SEPND FRMAT @4 


40 


Go To so 

IF (NEXT(SEPST) eNEe RPAR) @O TO 70 £ = = 
SEPST#IGPST=1 

OIR#-1 

CALL SEPAR 

IF(JSEP eNEs 1) GO TO 45 

1GPST=SEPNOD 


GO 10 50 _ = = 
IF (ACSEPND) «NEw LPAR)? GO TO 70 
O00 SS JaIGPST,IGPNO 

ACJ) SBLANK 

CONTINUE 

CONTINUE 

JERME=3 es ————— SS 
RETURN 

CALL ERROR(7,KOML,KOM2) 

RETURN 

END 


FRAAT 
FRMAT 


FRMAT 
FRHAT 
FRMAT 
FRMAT 
FRMAT 
FRMAT 
FRMAT 
FRMAT 
FRMAT 


ERMAT 


FRMAT 


FRMAT 


oo 
67 


69 
70 
71 
72 
73 
74 
7s 
76 
77 
se 
79 


61 


49 


le SUBROUTINE GENROL GENROL 2 
ze COMMON A(1326),0(500),10TBL(8,500),INITIO(3),LASTIO(3),1SRCH(3), RICH 2 
ae © UPTRINSM,UTYPALSTART sNZaLFNCNM sLOGIDNATIOSIOTYPsNIDsLOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,ITERR,IDES RICH 4 
= ane _____COMMON/GLOBAL/NBLK NREF ANSUBS sBUKTBL (200) sEXTIOL (100) .15U85( 100) e. 
be COMMON/LIST/NLIST,NINTFC,ISUBLT(3,200),INTFAC(S00) 
Te COMMON/INPOUT/NCALL,IN,IOP GENROL 6 
Be COMMON/MASTE/IOUMN(63) 
ve INTEGER BLKTBL,EXTTBL ,BITGET 
10¢ WRITE(6,2) GENROL 9 
=a) | eee 2 FORMAT(IHL) : ee ee 
12e c eelF COC 6700 = PLACE A iC: IN COLUMN I OF NEXT CARD 
130 WRITE(IOP,50) 
I4e 50 FORMAT(I4HOFOR,IS ROLCAL) 
__IS8e ¢ IF UNI VAC 1108 + PLACE A *C* IN COLUMN ONE OF NEXT cagp 
l6e c WRITECIOP,4) 
ize 4 FORMAT(5X,48H PROGRAM ROLCAL (OUTPUT, TAPEG#0UTPUT,TAPES,TAPE9)) GENROL12 
160 IF(NBLK «EQ. 0) GO TO 6 GENROLI3 
19e Keel GENROLI4 
20° 00 S 1#1,NBLK GENROLIS 
SS a a as 
22e INDEX@BLKTBL(I) 
230 ISZsBITGET(ISUBLT(2,INDEX),36,415) 
24e MRITECTOP,3) ISUBLT(E,INDEX) »K,ISZ 
250 3 FORMAT(SX,8H COMMON/,Ab,3H/IXG12,1H(,16,1H)) GENROLIG 
260 5S CONTINUE GENROL20 
Ses | [VAS OO ——————————— a - = 
280 7 FORMAT(SX,4H Jel/SX,6H MODE@,II/5X,13H DO 10 Lelyh3/SX,6H Yedql) 
290 IF(NBLK EQ. 0) GO TO 22 GENROL27 
30° Kee! GENROL28 
Bie D0 20 Iml,NBLK GENROL29 
32e Kekel GENROL3I 
—___33a_______Kk#21000ex ee = = —— ENOL be 
34e INDEX*BLKTBL(I) 
350 ISZTmBITGET(ISUBLT(2,1NDEX) 436,515) 
Joe WRITEC(TOP,10) KKyISZ,KyKK 
378 10 FORMAT(SX,4H DO 1 4,5H Kehoe lO/SX 3H LX oLZ SWiK IMELIX SLM, 
380 S$ 9H CONTINUE) 
—_ _39a___1 F4ISUBLT44,1NDEX) .NE~6HSESCOM) 60 10 20 — _ 
400 @RITECIOP,IS) KyKyK | 
4h0 15 FORMAT(SX,3H IX,12,7HUE7IMIO/SX,3H IX,12,7H( 20) mds 
42¢ © SKX,3H [4,12,7H4(23) 812) 
430 20 CONTINUE GENROL39 
44e 22 NARG@BITGET(IOTBL(3,1)5756) 
SS) DO 30 1al,NaRG oe —- _— GENROL4I 
460 IF(T s&Q@e NARG) GO TO 25 GENROL 42 
470 I1DUM(1)82HD, GENROL43 
480 GO TO 30 GENROL44 | 
490 25 IDUM(1)a2HJ) GENROL4S | 
506 30 CONTINUE GENROL 46 
Sie MRI TE LIOP,35) IDTBL 11,1), LIDUMIT), Tel NARG) — sn 
S2e 35 FORMAT(SK,6H CALL ,AbsIH(,4IAZ/SK, IME, IRs2Z2A2) GENROL 4S 
Sie MRITECIOP,38) 
S4e 38 FORMAT(SX,24H IF(MODE «EQs 3) GO TO S) | 
Sse MRITECIOP,40O) 
S6e 40 FORMAT(SX,14H CALL MODID(J)/3K,12H S ENOFILE 3/2K,12H 10 CONTINUES 
Slee 5X,12H CALL CMPARE/S2,11H ENDFILE 43/5%,11H FNDFILE 14s ee 
See © SK,LIH ENDFILE 15/5X,10H REMIND 13/5X,10H REMIND 14/7 
ae _@ SX,10H REMIND 15/5X%,5H STOP/5X,4H END) 
60° RETURN GENROLS? 
18 £ND - = GENROLSO 


s6HANCILL,S6HARY SU,6HBPROGR,2HAM, 


slH ,6HEXTRAO, 


GLOTAB 2 


_DATA KLAS/6HUSER SsGHUPPLIEIHD.IH ,CGHSUBROUVOHTINE MsSHODULESIH go 


GLOTAB 6 
GLOTAB 9? 
GLOTABIO _ 


tn 


60 To 40 


GLOTABLI 
GLOTABI2 
GLOTABI3 


SLOTABIe 


le SUBROUTINE GLOTAB 
ey COMMON A(4326) 401500) sLOTBL (8,500) sINITIDI3) LASTID( 3) gISRCH(S)y 
3e © JPTRIN SM, JTYP,LSTART NZ, LFNCNM,LOGIDNXTID,IDIYP.NID,LOC, 
4e Z LTYPLITYP,IBLKOT MODEL TERR, IOES 
Se COMMON/GLOBAL/NBLK ,NREF, NSUBS,BLKTBL (200) ,EXTTBL(100),1SU8S(100) 
oe COMMON/LIST/NLIST NINTFCsISUBLT (3,200) ,INTFAC(500) 
7e INTEGER BITGET,BLKTBL ,EXTTBL »KLAS(4,7) 
Be 
Ge S 6HFUNCTI,6HON MOD,3HULE,IH 
10¢ S 6HANSI F,6HUNCTIOsIHNa IH sOHMAIN P,6HROGRAM, IH 
the S 6HROINAR,6HY SUBP,6HROGRAM/ 
12e WRITE(6,1) 
I3e 1 FORMAT( IH} ,48X,23H GLOBAL REFERENCE TABLE) 
ite _ LF {NREF .s&Qs. OF GO TO 25 
ise WRITE(6,2) 
lee 2 FORMAT(//S50X,20H EXTERNAL REFERENCES) 
17e 00 20 Iel,NREF 
ee INDEASEXTIBLYI) a 
19e J=eBITGET(ISUBLT(2, INDEX), 10,4) 
20¢ WRITE(6,10) ISUBLT(1,I1NDEX), (KLAS(K,J¢1),K"1,4) 
ra 10 FORMAT(4SX,A6,4X,4A6) 
22¢ 20 CONTINUE 
23¢ 25 IF(NBLK eEQ- OP GO TO 40 
——_ 24e__________JNOEXaBLKTeLits - ———___—_—__—— 
2Se IF (NBLK cEQe 1b eANDe 1SUBLT(1, INDEX) eEQe 
260 BRITE (6,30) 
276 30 FORMAT(//49X%,23H LABELLED COMMON BLOCKS/43X,11H BLOCK NAME,7Ky 
280 S BH SIZE,7X oH CLASS) 
290 00 38 Je#l,NBLK 
—__—_—394—__ — INOEXmBLKTBL IJ) - -——-—_— 
3ie ICAT#BITGET(ISUBLT(2, INDEX), 10,4)=6 
32a ISZaBITGET(ISUBLT(2,INDEX) 536415) 
336 35 FORMAT(46X,A655X,18,S5X,9HCATEGORY 4,12) 
34a MRITE(6,35) ISUBLT(L,INDEX},I1SZ,1CAT 
356 38 CONTINUE 
—_—_3e___40 WRITE(6,45) — — 
37e 4S FORMAT(///48XK,24H SUBROUTINES ENCOUNTERED) 
388 O00 60 I#1,NSUBS 
390 Cee GET SUBROUTINE CLASS 
40 INDEXK*1SUBS(1) 
4le JeBITGET(ISUBLT(2,I1NDEX),10,4%) 
42a — —_ MRITE (6,10) ISUBLTLI, INDEX), (KLAS(K, Jot) ,Kal,4) — 
43e 60 CONTINUE 
44@ RETURN 
4Se END 


GLOTAB3S 


GLOTAB38 
GLOTAB3I9 


Te SUBROUTINE GNLE GNLE 2 
ze COMMON A(4326),0(500) 5.0TBL (8,500) »INITIO(3) LASTIO(3),1SRCH(3), RICH Z 
3e © JSPTRINGM,ITYP.LSTART NZ2,1FNCNM,LOGIO,NXTIO,LOTYP,NID,LOC, 
4e 2 LIYP,ITYP,JBLKOT,MODE,IERR,IDES RICH 4 
Se COMMON/LOGIC/LOG,LOGST GNLE 4 
ert __COMMON/REALNO/IREAL ,IRELNOGIP ine = ee Ne Ss 
Je INTEGER A,0,B8LANK,PLUS,EQUALS,SLASH,RPAR,COMMA,ASTRIK, GNLE 6 
Be 1 AICH,OECPT GNLE 7 
9e DATA BLANK/IH /,PLUS/IHe/,MINUS/IH=/,EQUALS/IH#/ sSLASH/IH//, GNLE 8 
= ioe 2 RPAR/IH)/,COMMA/IH,/,ASTRIK/IHOs,AICH/IHH/ LL PAR/IN(/,DECPI/I Hes =GNLE ? 
lie JTYP #0 GNLE 10 
l2e NXTSNEXT(UPTR) GNLE iI 
l3e IF (NXT «€Q.6 BLANK) RETURN GNLE 12 
i4e LSTART#JPTR-1 GNLE 13 
1Se IF (NXT e€Q- PLUS) GO TO 1 GNLE 14 
ioe IF (NXT .E£Q. RPAR} GO TO 4 ~ SSS. a 
17e IF (NXT e€Q6 MINUS) GO TO 1 GNLE 16 
18e IF(NAT 2€Q. SLASH) GO TO 1 GNLE 17 
190 IFUNXT «€Qe COMMA) GO TO 1 GNLE 16 
200 IF (NXT «EQ. EQUALS) GO TO J GNLE 19 
21° Go TO 2 GNLE 20 
2208 = 4 JTYPal = a= — ~ - es SSS es ee os 
23¢ Mel GNLE 22 
24e Go TO 20 GNLE 23 
25e 2 IF(NXT «NEw ASTRIK) GO TO 4 GNLE 24 
26e TF (NEXT(JPTR) «NEw ASTRIK) GO TO 4 GNLE 25 
27¢ M=2 GNLE 26 
——S JTYP my . _ ee ee 
296 GO TO 90 GNLE 28 
3008 4 IF(NXT .NE. LPAR) GO TO 40 GNLE 29 
Jie IF(LSTART .EQ@6 1) GO TO 10 GNLE 30 
320 IMEMLSTART <1 GNLE 3h 
330 TF CTPREVCIME) «NE 3) GO TO 2} GNLE 32 
34a 40 CONTINUE ———— ees ae Se | 
3Se NXTSNEXT(LSTART#1) GNLE 34 
360 IF CNXT .EQ. BLANK) GO TO 420 GNLE 35 
376 IFINXT oNEe PLUS eANDe NXT oNE» MINUS) GO TO 22 GNLE 36 
388 LP aJPTR GNLE 37 
396 GO TO 24 GNLE 386 
eee SE ee ee ee eet). 
41e 24 CALL REALCK GNLE 40 
420 IFC(IREAL .EQ. 0) GOTO GNLE 41 
43e IF(IOES «EQe 1) GO TO 1 G@NLE 42 
44e IF C(NEXTCIRELNDe1) oNEw COMMA) GO TO 1 GNLE 43 
4Se NXT#NEXT(UPTR) GNLE 44 
—_ 44e NT NE PLUS sANDs NXT ,NE. MINUS) GO TO 310 a a oe 
47° IPmJPTR GNLE 46 
“Be Go TO 35 GNLE 47 
49¢ 30 IPsJPTR=1 GNLE 48 
Soe 3S CALL REALCK GNLE 49 
Sie IFCTREAL .EQe OP GO TO 120 GNLE 50 
een Fs - —_IELIDES .€Q. 1) GO TO 120 — ‘ " re GNLE Sj} 
Sie IF (NEXTCIRELNO#1) eNE~ RPAR) GO TO 120 GNLE S2 
S4e ATYPs6 ies GNLE S53 
5S5e MeJPTR=LSTART GNLE S4 
540 GO TO 90 ee —— GNLE SS 
S7e 40 IF(NXT eNE~ DECPT! GO TO SO GNLE 56 
She LIPSITYPELJPIR) | ——s anna GNLE  S7 
S9e GO TO (42,445120),1TP GNLE S56 
400 42 LOGST@eLSTaRTel GNLE SS? 
ole CALL LOGCHK GNLE 60 
42° IF{LOG s£Q@. OF GO TO 120 . GNLE 1 
63¢ JTYPs/ GNLE 62 
oe | ees Ad CIR bat A GNLE #3 
65e GO TO 90 GNLE 64 


bho 44 IPeLSTART = . GNLE 45 


b7e CALL REALCK GNLE 66 
_68e CT FUT REAL 4EQe OP GO TO 129 GNLE 67 
69e JTYPs4 GNLE 66 
70¢ MaI]RELND=LSTART¢I GNLE 69 
The Go TO 90 GNLE 70 
72¢ SO CONTINUE GNLE 71 
730 IFCITYPE(LSTART) eNEs 2) GO TO 85 GNLE 72 
—__.29¢ YP CEOs 28) 60 TO 54 GNLE 73 
75e IPeLSTART GNLE 74 
76e CALL REALCK GNLE 75 
77° IF(IREAL «EQ. 0’ GO TO S54 GNLE 76 
76¢ JIYPs4 GNLE 77 
790 Mm IRELND=LSTART#I GNLE 78 
aoe $0 TO _ 90: : L = = =, GNLE 79 
. Ble S4 JPTRELSTART#L GNLE 80 
82e SS IFCITYPE(JPTR) eE&Qe 2) GO TO 57 GNLE 6) 
830 GO TO 65 GNLE 82 
a4e S7 IF(JPTR eGTs N) GO TO 40 Se GNLE 83 
aSe Go TO 55 GNLE 64 
__ 66e sO MENWLSTARToI GNLE 68S 
B7e JTYP SS GNLE 66 
eee Go TO 90 = - GNLE 87 
890 65 IF(ACUPTR=1) eNEs AICH) GO TO 67 GNLE 68 
90¢ IFCITYP cEQ@e 8 eORe ITYP e£Qe 28 2eORe ITYP sEQ@e 27) GO TO 70 GNLE 69 
Fie 67 MeJPTR-LSTART@=1 GNLE 90 
226 JTyPss ss —— ee _GMLE 91 
930 GO TO 90 GNLE 92 
240 70 IF(UPTR eGTe N) GO TO 120 GNLE 93 
950 MeN-LSTARTSL GNLE 94 
240 IF(M eGTe 500) m=500 w= . 
97¢@ JTYPs#3 GNLE 9s 
28e GO 19 90° GNLE 96 
998 8S CONTINUE GNLE 97 
100¢ JFC(ITYPEC(LSTART) eNEw J) GO TO 120 = -_.__ SLE ___ 99 
1ole IFCITYP «EQe 28) GO To 100 
loze 88 CONTINUE _____ GNLE 99 
1o36¢ IFCITYPE(UPTR? «NE. 3) GO TO 86 GNLE 100 
_104e MaJPTR=LSTARI<“1 GNLE 10) 
lose JTYP #2 GNLE 102 
1066 GO TO 90 a= es « ~ GNLE 103 
1o7¢ 86 IF(JPTR «GTe N) GO TO 87 GNLE 104 
1086 GO TO 68 ie = as fa G@NLE 105 
109¢ 100 Msi 
1100) JTYP#2 = = 
liie GO TO 90 
lize 87 MaN-LSTART+1 ae GNLE 106 
1i3e JTYP@2 GNLE 107 
lide 90 CONTINUE es ee NEE «108 
lise 00 91 Lal, GNLE 109 
llee __ LL eLSTARToL =] GNLE 110 
117¢ O(LI#A(LL) GNLE 111 
1186 91 CONTINUE GNLE 112 
1190 JPTRELSTART OM GNLE 113 
120¢ CALL SQUEEZ = a2 = 
1216 CALL FORMEL GNLE 115 
on ) ( RETURN GNLE Lio 
1236 120 CONTINUE GNLE 117 
124e vIYP=#s ——— __ GNLE 118 
125¢ RETURN GNLE 119 
ee + eee -{ |: aes < . GNLE 120 


te SUBROUTINE GOTO g0TO 2 


ze COMMON A(1326),0(500),10TBL( 8,500) ,INITIO(3) LASTIO(3),ISRCH(3), RICH 2 
ae © UPTRsNsM JTYPsLSTARTsNZs1FNCNM,LOGIDNATID,IDOTYPsNIDsLOC, 
4e 2 LTYP,ITYP,1BLKOT,MODE,IERR,IOES RICH 4 
eee ae COMMON/LABELS/STATRA(2,200),NLABEL 22 G10 4 
ee COMMON/BASBLK/IBLOCK( 2500) »NBLOCK ,NB,NBRNCH 
7e DIMENSION ILALPH(4) GOTO 6 
ee INTEGER STATRA,BLANK GoTo 7 
ge INTEGER BITPUT GOTO 8 
10¢ DATA (LALPH(1),1et,4)/1HG,IHO,IHT,1LHO/ GoTo 9 
dpe ... DATA BLANK/IH / = Ss = = ee = : SS GoTo 4Q 
12e 00 S I#Is4 Goto tt 
j3e IF (NEXT(JPYR) oNEe TALPH(1)) GO TO 10 GoTO 12 
l4e S CONTINUE GoTo 13 
ise CALL GNLE GoTo 44 | 
1660 IF(UTYP eNE. S) GO TO 10 GoTo 15 
ee CAE SUS ROH : GOTO 16 | 
1860 STATRA(2,LOC) MBITPUT(STATRA(2,LOC) 91912) GOTO 17 | 
ive TFENEXT(JPTRI »NEe BLANK? GO TO 1D GOTO 18 
206 NBLOCK eNBLOCK¢! GOTO 19 
ey.) x ae IBLOCK {NBLOCK DeL OC = ce es = abies 20 | 
22e NBRNCH#®I GOTO 21 | 
23¢ NBel GOTO 22 | 
24e RETURN GOTO 23 | 
25e 10 CALL ERROR(7,KOM1L,KDM2) 
260 RETURN GoTO 25 
SS SS fe fo te = Se ~o ee * aoe = 6070. 2%. 
Te SUBROUTINE GROUP = ace - GROUP 
2e COMMON £11326) 401500) ,IDTBLIB,SOD),INITIDI3) sLASTID(3)¢ISRCHI3), RICH 2 
3e © JPTRIN SM, JITYP,LSTART NZ, 1FNCNM,LOGIO,NXTID,IDTYP,NID,LOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IDOES RICH 4 
Se COMMON/FORMAT/IDESST,1IOESND,IGPST,IGPND,IGRP,SEFST,SEPNDy 
2 6e 1 DIR,ICOM,ISEP eee eae = ee. : GROUP S 
7° INTEGER A,RPAR,SEPST,SEPND,OIR GROUP 6 
Be DATA RPAR/IH)/ GROUP 7 
ge IF (NEXTCIGPST#1) e&Q@. RPAR) GO TO 20 GROUP 8 
10° SEPST#JPTR=] é GROUP 9 
lle OIR=1 
a kZS CAE SE RER ease = : ees = GROUP JL 
13° IF(ISEP cEQe -1 +ORe ICOM eEQe 1) GO TO 30 GROUP 12 
14e IF(ISEP cEQs 0) IDESST#=SEPST GROUP 13 
1Se IF(ISEP e€Q. 1) IDESST=SEPND*1 GROUP 14 
loe IF (NEXT(IDESST) e&Q@e RPAR) GO TO 20 GROUP 1S 
17° SEPST#IGPND-1 GROUP 16 
is ise —___DIRs-)- ree : mee ae 
19e CALL SEPAR GROUP {6 
20° IFCISEP +EQe -1 eORs ICOM eEQe 1) GO TO 30 GROUP 19 
216 OIR®l 
eee | t 10 CONTINVE Se a i al 
236 CALL DESCRP GROUP 22 
246 IF(I10ES »EQ. OF GO To 4a 
250 SEPST#IDESNODSI GROUP 24 
260 IF (NEXT(SEPST) s€Q6 RPAR) GO TO 20 GROUP 25 
27° CALL SEPAR GROUP 26 
were | — IFLISEP .£Q. 0 .0R- 1SEP EQ. 94} GO TO 30 <= GROUP 27- 
290 IDESST#SEPND¢I GROUP 28 
308 IF (NEXTCIDESST) .NE. RPAR) GO TO 10 GROUP 29 
jie 20 IGRP®) GROUP 30 
320 RETURN GROUP 34 
330 30 IGRP=0 GROUP 32 
340 CALL ERROR(2,KOM1,KOM2) eran earner = a aS 
350 RETURN GROUP 34 
368 40 CALL ERROR(88,10ESST,KOM2) 
376 IGRP#O 
380 RETURN 


3968 ENO GROUP 35 


som aann bee 


SUBROUTINE GRT 


REE EE EERE A NENA MN te 


GRT 2 
RICH 2 
RICH 4 
GRT 10 
GRT 11 
GRT 16 
GRIT 47 
GRT 41 
GRI 42 


2e COMMON A(1326),0(500),1DTBL (8,500) ,INITIO( 3) LASTIO(3),1SRCH(3), 
= © JPTRsNaM,JTYP aLSTART ANZ aI FNCNMLOGIDNATID IDTYPaNIDsLOC, _ 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IOES 
Se COMMON/GLOBAL/NBLK .NREF sNSUBS,BLKTBL(200) sEXTIBL(100).,1S¥BS(100) 
6e COMMON/LIST/NLIST,NINTFC,ISUBLT(3,200),INTFAC(SO0) 
Je INTEGER EXTTBL.,BLKTBL.BLANK BITPUT.BITGET 
Be OATA BLANK/IH / 
ees __WRITE(4,1) —— eee 
10° 1 FORMAT(//) 
lie ISUB*INITID(2) 
120 IF(ISUB eEQe OF GO TO 15 
3: 10 I1SUBmIDTBL(2,15UB8) ——— = pti aces 
l4e IF(ISUB «EQ. 0) GO TO 15 
1Se IFC BITGET(IOTBL(3,1S5UB),20,1) .EQ. 1) GO TO 10 
l6e IF(NREF «EQe OF GO TO 4 
i7e 00 3 Kml,NREF 
160 INDEX#EXTTBLIK) 
——_ 19a ___________ TF LIDTBLI4,1SUB) .£Q. ISUBLTI1,INDEXI} GO To 40 — — 
20¢ 3 CONTINUE 
210 4 NREF@NREF ot 
22¢ IF(NREF «GT. 100) GO TO SO 
23° EXTIBLONREF )eBITGET(IDTBL(3,1SUB) 36,9) 
246 IF(MCDE +EQ- 1) GO TO 10 
——_ 25a ___ J WDEXeE%T TEL (NREL) _ Siang ee eee, —— 
260 KLAS#BITGET(ISUBLT(2,INDEX),10,4) 
278 IF (KLAS cEQ. 1 2ORe KLAS .EQs 2) WRITE(9) IDTBLI1,1 SUB) 
280 GO TO 10 
298 4S IBLKMINITID(3) 
306 20 IF(IBLK «EQ. OF RETURN 
Jia 141078144, 181K) £0.14 60 To u4g6- _ - —__—— _ 
32¢ 0O 25 It#1,NLIST 
338 TFCIOTOL(4,1BLK) .NE. ISUBLT(1,1)) GO TO 25 
34e LISTLCcel 
350 LEC BITGET(CISUBLT(2513510,4) sEQe 7) GO TO 30 
Jee IF(BITGETCISUBLT(251)536515) e«NEs OF GO TO 30 
=<) EE ———— ee _— — 
386 ISUBLT(2,1)*BITPUT(ISUBLT(2,1),152,36) 
390 GO TO 30 
406° 25 CONTINUE 
410 CALL ERROR(62,10TBL(1,18LK),KOM2) 
420 NLIST#NLIST#I 
—— i — LSUBLT(I,NLISTImIOTBLII,I1BLK) io —as 
44e ISZ#10TBL(4,1BLK) 
450 ISUBLT(2,NLISTI MBITPUT(ISZ,10,10) 
460 LISTLC#NLIST 
47° 30 ADTBL(3sI BLK) #BITPUT(IOTBL(3,1BLK) LISTLC,34) 
4860 IF(NBLK «€Q6 0) GO TO 40 
42@ OO 35 Kel,NBLK SS = - —— 
Soe IF(LISTLC «E€Qe BLKTBL(K)) GO TO 45 
Sie 35 CONTINUE 
S2e 40 NBLK#NBLKel 
Sis IFUNBLK «GT. 200) GO TO 40 
S4e BLKTBLINBLK) @LISTLCE 
—___55e _______ 45 IBLKe@IDTAL(2,1B8LK) ee 
Sée GO TO 20 
S7e SO CALL ERROR(S9,KOM1,KDM2) 
S80 STOP 
5% 60 CALL ERROR(60,K0M1,K0M2) rs 
60¢ sToP 
414 —_£N0 


Te SUBROUTINE IMPTYP 
ze CMON A112 326),01500) TOTAL (8.500) INITIO(3) LASTIDIS) sISRCHI Dds 

3e © JPTRIN SM, UTYP,LSTART »N2eTFNCNM,LOGID,NXTID,IDOTYP,NID,LOC, 
4@ 2 LIYP.ITYP,IBLAKDT,MODEIERRIDES 
Se DIMENSION IALPH(6) 
oe INTEGER O,BITPUT.BITGET 
Te DATA (CTALPH(I) Tel, 6)/1HT, THI IMK, IHL» THM, THN 
Be UF ABITGETSIDOTBLI SD LOCd stad) c£EQe 1) GOTO 20 
ye IDTBLIS,LOCISeBITPUT(IOTBL(3,LOC), 1,11) 

10¢ 00 10 I#t,6 = 

Ite IF(COCL) eNEe TALPH(E)) GO TO tO 

12e IDTBL(3,LOC)SBITPUT(IDTBL(3sL0C) 4 4e10) 

i3e 60 TO 20 

_i4e ____10 CONTINUE SS a eae eee 

ise IOTBL(3,LOCeBITPUTCIOTBL(3,L0C),1,10? 

160 20 IFCITYP oh Eo 18) LOTBLI3,LOCIBBITPUTI(IOTBL(3,LOC),1,19) 
17e RETURN 

: 18e END 


wi 
WwW 


IMPTYP 
RIC 


RICH 

ImMPTyYe 
IMPTYeP 
ImMPTYP 


imPtye 
IMPTYP 


eowre 


6 
9 


IMPTYPIO 


LMPTYPLS 


IMPTYPI4S 
IMPTYPLS 


le SUBROUTINE INIT INIT 2 


2e COMMON A(1326),0(500),10TBL (8,500) ,INITIO(3) ,LASTIO(3),1SRCH(3), RICH 2 
Je © SPTRINIMJTYPALSTART NZnTFNCNMLOGIDsNXTID,IDTYPyNIDsLOC,y 

4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IOES RICH 4 
Se COMMON/FUNC/ITFNCRA(5S,17) sMARGS, [ARGS (50) sFNCLOC(S) sNFUNC 

be COMMON/STRING/NTYPE ,NSTRySTR(SOO) INIT s 
ze COMMON/TYP/N@Q.RHSTYPsNQ@Z2,NQ3,LHSTYP = 

Be COMMON/LIST/NLIST,NINTFC,ISUBLT(3,2086),INTFAC(SOO) 

ge COMMON/BASBLK/IBLOCK(2S00) sNBLOCK,NB,NBRNCH 

10¢ COMMON/STFUNC/NSTFNC,ISTFNC( IO) 

lie INTEGER RHSTYP 

i2e INTEGER A,EQUALS,COMMA,RPAR,STR INIT 10 
i6—. __ INTEGER BITPUI,BITGET,FNCLOC SS ee a= —_ see — 25 
i4e DATA EQUALS/1IH#/,LPAR/IH(/sCOMMA/IH,/,RPAR/IWD/ INIT 12 
1Se IFN#=0 INIT 13 
1ée NTYPE®! INIT 4 
17e IPTR#JPTR INIT is 
166 CALL GNLE INIT 16 
1?¢ IFCJTYP aNEw 2) GO TO 40 INIT 17 
206 CALL SEARCH INIT 18 
21e IF(NEXT(JPTR) eNEw EQUALS? GO TO 6 INIT U9 
22¢ Loc2=0 Init 20 
23¢ IFCISRCH(2) «aNEe 1) GO TO 2 INIT 21 
24e IF(NXTIO .NEo IFNCNM) CALL ERROR(10,NXTIO,KOM2) 

Soe || eee) |) er SS . . a8 = — ee |) ee: ee 
266 CALL IMPTYP INIT 24 
27 Loc2=Loc INIT 25 
286 2 IFCISRCH(1) eNEe 1) GO TO 18 
296¢ IF(LOC2 eE@e O) GO TO 4 
30¢ LOC#IDOES 

eee | i CO) EE eee = ae Se 
32e 18 LOTYPel 
33e CALL STORE INIT 26 
34e LOC#NIO INIT 29 
35e TF(LOC2 e£@e OF GO TO 4 
3be IOTBL(3,LOC)#IOTBL(3,L0C2) INIT 31 

bee een ae tt ne oe: ee | 
386 4 CALL IMPTYP INIT 33 
390 S LHSTYPSBITGET(IOTBL(3sL0C) 41013) INJT 34 
40¢ IF(LHSTYP .EQe 5S) NTYPES2 
4ie Go TO 30 INIT 36 
42 6 IFCACJPTR=1) eNE« LPAR) GO TO 40 INIT 37 
430 = IFCISRCH(]) eEQe 1) GO TO 12 aectatcall INIT 36 
44e IFCISRCH(2) eNEe 1) GO TO 15 INIT 39 
45e@ CALL ERROR(I1O,NXTIO,KOM2) 

460 GO TO 8 INIT 41 
47° 15 IDTYP#2 INIT 42 
48e CALL STORE INIT 43 
49@ LOC#NIO ss i): oe. 
soe Go TO 6 INIT 45 
Sie 7 CALL SWITCH ‘ INIT 46 


rc 


Sze 6 CALC [MPTYP INIT 

—se EST PORETGET SFO TAE Ss. oe). 8 = ——_1 NEF 
S4e IF(CLHSTYP .EQe 5S) NTYPE®2 
sse NARG#D INIT 
See ITYP*#35 INIT 
Sve NSTFNC#eNSTFNC el! 

Se IFCNSTFNC .GTe 80) GO TO 60 

—S9e CN ST ENC UNSTENC) MLO $$$ ——_____—_— — = 
606¢ LOcIsLOCc 
oie LOTBLL3,LOC MBITPUTLIOTBL(3,L0C),14,20) 
6ze 10 CALL GNLE INIT 
630 IF(JTYP .NEs 2) GO TO SO INIT 
é4e NARG®NARGeI INIT 

2 es ae a ra = = SSS = —- 
66e TF CISRCH(2) eEQe 1) CALL ERROR(S4,NARG,KOM2) 

478 TFLISRCH(4) .EQe 1) GO TO 20 
66¢e 1OTYPe! 

69a CALL STORE 

70¢ LOC#NID 

— tt i 65 F 9 3 5 — —_—— = ———— —_____—— 

72e 20 IF(BITGET(IOTBL(3,LOC),1,1) «EQe CALL ERR>&” \.NARG,KOM2! 

7308 25 CALL IMPT YP 

740 IF(NEXT(JPTR) «EQe COMMA) GO TO 10 INIT 
7Se IFCACJPTRed) .NE. RPAR) GO TO 40 Init 
Tee TOTBL(3,LOCII#BITPUT(IOTBL(3,LOCI) »NARGo7) 

—21e_______1 FAMEXTLJPTR) £0. EQUALS) GO TO 32 —— {N44 
780 GO TO 40 INIT 
798 42 IFCBITGET(IOTBL(3,L0C)1,1,14) sNEo 43 GO TO 7 Init 
80¢ CALL IMPTYP INIT 
Bie LHSTYPMBITGET(IOTBL(3,L0C),10,3) INIT 
82e TFC(LHSTYP .EQe S) NTYPE#2 

— £6 _____.JPJRa iP ER a ———$ INT 
84e JBLOCK=NBLOCK?I INIT 
ASe CALL EXPR INIT 
bbe CALL PARSE INIT 

Ale : CALL BLKSTR 
886 IBLOCK (J8LOCK) #1BLOCK(JBLOCK) = 1000 INIT 

Cee ee et aye Sa sarin age = INIT 
908 30 NBLOCK=#NBLOCKeI INIT 
9le JBLOCK*sNBLOCK INLT 
920 IBLOCK (NBLOCK)#1000¢L0C INIT 
Qie 32 NIMS*O INIT 
94e IPTReJPTR 

— 856 ALL EEO — eee eee ees |S 
Fee IF(UPTR eLEs NP CALL ERROR(7,KOME,KOM2) 

—- 76 = CALL PARSE imme INIT 
980 CALL FNCSTR INIT 

SO CEPR CR See ee —— INLT 
100¢ IFCITYP «EQ@e 35) GO TO 36 INIT 

—iiie CALL BLKSTR n ie 
102¢ TBLOCK(NBLOCK41 )#IBLOCK(JBLOCK) INIT 

—AD3e- DO 34 K#JBLOCK,NBLOCK = ve INIT 
104e 34 IBLOCK(K)#IBLOCKI(Kel) INIT 

_10Se IF(LTYP e£Qe 1) RETURN = asec 
106¢ 36 IF(MODE «NEe 1) GO TO 35 

—lOz7e CE RHSTYP 2F Qe 3 .OR, RHSTYP sF£On 4) RETURN —— 
1086 IF(NSTR «lL Te 6) RETURN 

an MPTReIPTR=-1 = 


ui 
~ 


“7 
48 


so 
Si 


$2 
$3 
s4 


110e CALL CNVRYT INIT 64 
tile RETURN ee os 7 INIT 85S 
lize 35 IF(NFUNC .EQ@. 0) RETURN INIT 66 
lide IF (CIFN «EQe 1) RETURN INIT 67 
lide 00 38 Jel,NFUNC INIT 686 
lise LOCSFNCLOC(YV) 
liée INDEX=BITGET(IOTBL(3,L0C),3659) 
lize ___KLAS#BITGET(ISUBLT(2, INDEX), 10,4) Ss 
1186 IF(KLAS «NEs 1 eANDe KLAS «NEe 2) GO TO 38 
lige CALL CALL2 INIT 92 
120¢ RETURN INIT 93 
i2t¢ 38 CONTINUE INIT 95 
122¢ RETURN INIT 96 
—i2}e sss 4 CALL ERROR 7,KOMI,KOM2) — — eae eee = 
i24e RETURN INIT 98 
125¢ 50 CALL ERROR(15sKOM1,KDM2) 
126¢ RETURN INIT 100 
127¢ 60 CALL ERROR(89s10M1,1082) 
1280 RETURN 
___129¢ —— CC — - ~ 3 = INIT 101 
te SUBROUTINE INTRIN 
as < oo COMMON A(1326),D0(500),1DTAL (8.500) sINITID(3) LASTIO( 3), ISRCH(9), 2 
3e © JPTRN eM, JSTYPyLSTART NZ, IFNCNM,LOGIDyNXTID,IDTYP NID LOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IDES 
Se COMMON/LIST/NLIST,NINTFC,1SUBLT(3,200) ,INTFAC(SO0) 
4e INTEGER BITGET 
7° 00 100 I1*1,NLIST 
pe BI TGETCISUBLT(2,11,10,4) sNEw 4) GO TO 100 — = Ss 
9e NXTIO@ISUBLT(1,1) 
1g¢ CALL SEARCH } 
lie CALL COMSCH 
ize __ IF(LSRCH(1) e€Qe 1 2ORe ISRCH(3) eEQe 1) CALL ERROR(74sNXTIDaKDM2) 
136 100 CONTINUE 
ide = RETURN = - 
bSe END 


58 


—_ ’ — 


COMMON A(1326),0(500)s10T8L(8,500) ,INITID(3) sLASTIO(3),1SRKCH(3), RICH 


9 JPTRNM,JTYP,LSTART.N2,1FNCNM,LOGIO,NATID,IOTYP,NIO,LOC, 


COMMON/BASBLK/IBLOCK( 2500) ,NBLOCK,NB»NBRNCH 
DIMENSION ITALPHI(4),1ALPH2(5),1ALPH3(8) 

OATA LPAR/IH(/,RPAR/IH)/,COMMA/SIH,/,BLANK/IH / 
DATA CIALPHI(1),1al,4d)/tHR, THE, THA, THOS 


DATA (CTALPH2Z(1),141,5)/1HW,IHR,IHIT THT, THES 
DATA CLALPH3C1),1m1,8)/1HC,1HO,IHN,LHT, IHL, LHN,LHU,LHES 


IFCISRCH(2) «EQ. 1) CALL ERROR(IO,NXTID,KOM2) 


ODE, ITERR,IOES 
»NSTR,STR(SOO) 
A(2,200) ,NLABEL 
»IN,1OP 


AR, COMMA,BLANK 
eT 


TALPHI(1}) GO TO SO 


TALPH2(1)) GO TO SO 
LPAR} GO TO SQ 


TO 22 
KOM2) 


GO To 25 


RICK 


IF(BITGET(IOTBL(3,L0C),10,3) sNEo 4) CALL ERROR(22,KDM1,KOM2)_ 


STATRA(2sLOCI#BITPUT(STATRA(2Z,L0C) 41412) 


OC)sl,l) e&Qe 1) CALL ERROR(L4Y,NXTIO,KOM2) 


COMMA) GO TO 40 


To 24 


1 S0- 


CALL ERROR(LONXTIDsKOM2) 


GO TO 27 


IF(BITGET(IDTBL(3,LOC) olal) eNEe 1) CALL ERROR(43,KDM1,KDM2? 


le SUBROUTINE 10 
2e 
je 
4e 2 LTYP,ITYP,IBLKOT,M 
Se COMMON/STRING/NTYPE 
oe COMMON/LABELS/STATR 
7 
8e COMMON/INPOUT/NCALL 
oe 
10¢ INTEGER A,STATRA,RP 
lle INTEGER BITPUT,BITG 
i2e 
tie 
i4e 
1Se 
lee IFRMT=sO 
i7e IFC ITYP eE€Qe 12) GO TO 19 
18e 00 S Isto4 
—— Ee LE (NEXTLIPTR) oNEo 
20° S CONTINUE 
210 Go TO 20 
22¢ 10 00 15 12#1,5 
238 IF (NEXT(JPTR) oNEo 
24e 1S CONTINUE 
= 25 20 IF (NEXT IPTR) SNE~ 
26¢ CALL GNLE 
27¢ IF (UTYP eEQe 2) GO 
286 CALL ERROR(22,KOM1,y 
29e GO TO 28 
30¢ 22 CALL SEARCH 
— 3ie 
32e TFC ISRCH(1) EQ. 1) 
3i3e IDTYP #1 
34 CALL STORE 
ase LOCaNID 
soe 25 CALL IMPTYP 
eee Fe = 
38¢ TF(BITGET(IOTBL(35L 
age NBLOCK*NBLOCK*l 
40¢ IBLOCK (NBLOCK) #2000¢LOC 
41e 28 IF(NEXT(UPTR) eEQe 
42e JPTR#UPTRe1 
= 430 - = GO TO 310 a 
44e@ 40 CALL GNLE 
4S¢ IF(UTYP «NE S) GO 
464 CALL STSRCH 
—— 579 
46¢e GO TO 29 
ET —______ 2h IF CJTYP NE « 2) GO 
soe CALL SEARCH 
Sie IFC ISRCH(2) eEQe 1) 
S2e IF CISRCH(1) e&€Q- 1) 
Sie IDTYP#1 
S4e CALL STORE 
SSe@ LOCeNIOD —— 
Sée 27 CALL IMPTYP 
578 


59 


Fae A SN I NE OTT TIT 


nN 


2 


She 29 IFRMTsI 10 s7 
S9e 30 IF(NEXTCUPTR) «NE. RPAR) GO TO 5Q0 ta = = lo 56 
600 IF(NEXT(JPTR) «NE~« BLANK) GO TO 35 lo Ss? | 
ole IF CITYP e&Qe 12 eANDe ITFRMT cEQe Q) CALL ERROR(44,KOME,KOM2) | 
62e GO TO 36 

630 35 JPTREGPTRe-]} 10 63 
b4e CALL EXPR 10 64 
ese NTYPE*3 Ax cette — = 19 65S 
66e CALL PARSE 10 66 
67° CALL LOSTR 2 

68e 36 JF (MODE «NE. I sANDe ITYP eEQe 11)? GO TO 37 

b9e@ RETURN 

70° 37 IFCITYPE( 1) e€Qe 2) GO TO 42 10 68 
71¢ Ati =IHC ae ase sires pee ees = 10 62 
72¢ RETURN 10 70 
730 42 WRITECTOP,4S) (ACT) stubs) eC PALPH3(1)s181.8) 10 71 
74e 45 FORMAT(72aA1) 10 72 
7S¢ ACLI=LAC 10 73 
76° DO 47 1#2,6 10 74 
77e 47 ALI) #1H — = — as oe SSS SS ee 
78¢ RETURN 10 76 
798 50 CALL ERROR(7,KDM1,KOM2) 

80e RETURN 10 78 
ele ENO 1o 79 

le SUBROUTINE TOSTR ey: Bes = 

2° COMMON A(1326)50(500) ,10TBL (8,500) ,INITIO(3) LASTIO(3),1SRCH(3), 

3e @ SPTRNoeM,ITYP,LSTART»NZ2,1FNCNM,LOGID,NXTID,IOTYP,NID,LOC, 

4@ 2 LTYP,ITYP,IBLKDT,MODE,JERR,IDES 

Sse COMMON/FUNC/IFNCRA(5417) sMARGS,LARGS(50) ,.FNCLOC(S) »NFUNC 

6e COMMON/BASBLK/I BLOCK (2500) »NBLOCK ,NByNBRNCH 

_2a_ ___ INTEGER BITGET —— — — ——____—_-—____—_— 

Be 00 100 [*1,MARGS 

Qe NBLOCK#NBLOCK#1 

10° 1COL#1BeMOD(I1=1,2)+9 

lie LVYRe(lel)s2 = 

i2e LOC#BITGET(IARGS(IVR),1COL+9) 
_ije : __ISUB=BITGET(LARGS(IVR) ,LCOL+3,3) ~ Ee {= ss 
14e IF(1SUB «E€Q@-. 1) GO TO 90 

Se LFLISUB e£@e 2) GO TO 20 

160 IF(ITYP e€Q- 11) GO TO 80 

17¢ IFCITYP e£Q@e 12) GO TO 90 

18e 20 IDEF=BITGET(IARGS(IVRI,1COL 49,6) 

= 1g9e@ NMOVEs{[-[peF ot. eee = = — —— 

20¢ 00 30 J#l,NMOVE 

2ie LTEMP*NBLOCK=J 

2ze 30 IBLOCK(ITEMPel)=IBLOCK(ITEMP) 

__. 256 = IBLOCK(ITEMP)*10004L0C | ts — = ze 

24e NBLOCK#®NBLOCK¢1 

25¢ IBLOCK (NBLOCK)#6000¢LO0C 

266 GO To 100 

27¢ 80 IBLOCK(NBLOCK)#1000+LOC 

286 GO TO 100 
oh Ss 90 IBLOCK(NBLOCK)s2000*LOC = = = 

30¢ 100 CONTINUE 

Jie RETURN 

32e ENO 
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ee 


Je 
4e 
Se 
be 
7e 


ge 
10¢ 
jie 
12e 
13e 
i4e 
ise 
loe 
17e 
16¢ 
ige 
20¢ 


FUNCTION [PREVOIA) 


COMMON A(1326),0(500),10TBL(8,500) sINITID(3) ,LASTIO(3),1SRCH(3), 
@ JPIRNM,JTYP,LSTART NZ2,FNCNM,LOGIO,NKTIO,{OTYP,NIO,LGC, 
2 LTYP,ITYP,IBLKOT,MODE,IERR,IOES 
INTEGER A,BLANK 
DATA BLANK/IH / 
00 10 I#1I,N 
Jata-iet 
JF(J 2e£Q@e OF GO TO 20 
IF( ACJ) e&Qe BLANK) GO TO 10 
IPREV#ITYPE(J) 
JPTRaJ-1 
RETURN 
10 CONTINUE 
20 IPREYs3 
JPTR#®O 
RETURN 
END 


FUNCTION | TYPE(ID) 


© JPTRNM,JTYPsLSTARTsNZ2,IFNCNM,LOGIO,NXTIV,IDTYP,NIO,LOC, 
2 LTYP,ITYP,I1BLKOT,MODE,IERR,IDES 
INTEGER BITGET 
NXT#NEXTO( IO) 
TVALSBITGET(NAT, 46,6} 
CeeeelF UNIVAC {108 - PLACE A *C* IN COLUMN 1 OF NEAT TwO CAROS 
Cc IF( TVAL .GEe IRA eANOe IVAL eL Ee IRZ) GO TO 10 
Cc IFCIVAL eGEe IRO sANDe IVAL elLEs 189) GO TO 20 
CeeeelF COC 67090 = PLACE A *C* IN COLUMN 1 OF NEXT TO CAROS 
TF CILVAL «GEe & eANDe EVAL eLEe 33) GO FO 30 
TFC IVAL eGEe 48 «AND. IVAL .LEe S57) GO TO 20 
ITYPEs3 
RETURN 
10 ITYPEs! 
RETURN 
20 ITYPEs2 
RETURN 
_END 
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COMMON AC1326) 301500) sfOTEL(8s500) se [NITIOL3) LASTIOCSIgISRHCHIS), 


IPREV 
RICH 


RICH 

IPREV 
IPREV 
IPREY 
IPREV 
IPREY 
IPREVW 
IPREY 
IPREV 
IPREV 
IPREV 
IPREV 
TPREY 
IPREY 
IPREW 


ITYPE 
RICH 


RICH 
ITYPE 
ITYPE 
1TYPE 
CH34 


CH34 


ITYPE 
ITYPE 
ITYPE 
ITYPE 
ITYPE 
ITYPE 
ITYPE 


NN 


OmMnounste 


10 
il 
i2 
13 
14 
is 
16 
17 
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Wows se 
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2e 
3a 
4e 
Se 
be 
Te 
Be 
ga 
10¢ 
ile 
12e 
Lie 
l4e 
1Se 
lée 
17 
ise 
lve 
2u0¢ 
218 
22° 
236 
24e 


256 


1a 


12 


1S 
20 
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SUBROUTINE LOGCHK 
COMMON A(1326),0(500),10T8L(8,500) ,INITIO(3),LASTIO(3),1SRCH(3), 


@ JPTRNM,JTYP,LSTARI NZ2,3FNCNM,LOGIONATIVIOTYP NID,LOC, 
2 LTYP,ITYP,IBLKOT,MODE,ITERR,IDES 


COMMON/LOGIC/LOG,LOGST 


DIMENSION LOGOP( 11) ,LOGRA(S) 


DATA 
® JHNOT,4HTRUE »SHFALSE/ 
JPTR#lLOGST 


00 


10 


(LOGOP( 1), TL, bhi /2HLT,2HLE,2HGT,2HGE,2HER,2ZHNE,2HOR, AHANDe 


Tal,6 


NXT#NEXT( PTR? 
TF (NXT s€Q-6 
LOGRACLISNAT 
GO TO 20 
1Fil 
CALL CAA(LOGRA,I=-1,L0G) 


00 


15 


eLTa 3) 


Tet,at 


IF(LOG EQ. 
CONTINUE 
LOG=0 
RETURN 
LOGal 
LOGIOsi 
RETURN 


ENO 


1H.) GO TO 


GQ TO 20 


LOGOP(I)) 


12 


GO TO 


30 


LOGCHK 
RICH 


ny 


RICH 
LOGCHK 
LOGCHK 
LOGCHK 
LOGCHK 
LOGCHK 
LOGCHK 
LOGCHKiDO 
LOGCHKII 
LOGCHKi2 
LOGCHKI3 
LOGCHKI4  _ 
LOGCHKIS 
LOGCHKI6 
LOGCHKI7 
LOGCHKI6 
LOGCHKI9 
LUGCHK20 _— 
LOGCHK21 
LOGCHK22 
LOGCHK23 


LOGCHK24 


OC OPrvownse 


20 


30 


40 
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SUBROUTINE LOGIF 


COMMON A(1426),0(5U0),10TBL(8s500),INITIDI SI LASTIO(S) ,ISKCH(3), 
© JPTR NSM, ITYP,LSTART N2,1FNCNM,LOGID ,NXTID,IUTYP,NID,LOC, 

2 LTYP,ITYP,1BLKOT,MODE,IERR,IDES 

COMMON/STRING/NTYPE ,NSTR,STRISOD) 


COMMON/BASBLK/IBLOCK (2500) ,»NBLOCK ,NByNBRNCH 

INTEGER A,STR»BLANK AY EF 

DATA LPAR/IH(/,BLANK/IH /,AY/IHI/,EF/IHFS 

IF (NEXT(JPTR) «NEe AY) GO TO 110 

IF(NEXTCJPTR) »NEo EF) GO TO 110 

IF C(NEXT(JPTR) eNE« LPAR) GO TO Jiu 

JPTReJPTR-1 

CALL EXPR 

NSTRENSTReI 

STRINSTR)® <5 

NTYPE#2 

CALL PARSE 

GALL FNCSTR 

CALL BLKSTR 

IFC ITYP «GTe 15) GO TO 130 

LTyPst 

GO TO 6105204301490 550160570480,70570190270, 100,100,100) ,1TYP 
CALE ENET 

RETURN — = 

CALL ASSIGN 

RETURN 

CALL GOTO 

NBLOCKSNBLOCK+¢1 

IBLOCK (NBLOCK) #998 

NBRNCH#2 

RETURN 

CALL ASGOTO 

NBLOCK™NBLOCK*1 

IBLOCK(NBLOCK) #998 

NBRNCH#NBRNCH#I 

RETURN = ee ee — 
CALL CTGOTO 
NBLOCK#SNBLOCK*1 
IBLOCK (NBLOCK)#9986 
NBRNCHENBRNCHEI 
RETURN 

CALL ARIF 
NBLOCK=NBLOCK?1 
IBLOCK (NBLOCK)#998 
NBRNCHSNBRNCHEI 
RETURN 

CALL SUMP 

TFC ITYP s&Qe 7) RETURN 
NBLOCK#NBLOCKel 
IBLOCK (NBLOCK)2998 
NBRNCH#2 

RETURN 

CALL CALL 

RETURN 

CALL 10 

RETURN 

CALL AUXIO 

RETURN 

CALL ERROR(7,KOMI,KOM2) 


RETURN a oe —s ~ 
CALL ERROR(4S4KDMI,KOM2) 
RETURN 


END 
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LOGIF 
RICH 


RICh 
LOGIF 


LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 


LOGIF 
LOGIF 
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LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
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LOGIF_ 


LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 
LOGIF 


LOGIF 


LOGIF 
LOGIF 


ee a A nt nh ree a a mn : —=—— 


le SUBROUTINE LOOPCK LOOPCK 2 
2e COMMON/LABELS/STATRA(2,200) ,NLABEL LOOPCK 3 
ae COMMON/DOLOOP/ISTACK(1 4,50) ,NSTACK,ILOOP LOOPCK 4 
4e COMMON/BASBLK/IBLOCK (2500) ,NBLOCK ,NByNBRNCH 
Se INTEGER STATRA,BITGET LOOPCK 6 
6e IF(NSTACK .EQe OF RETURN LOOPCK 7 
ze IBLKST#®1 = = LOOPCK @ 
Be 10 IBLKNO@BITGET(IBLOCK(IBLKST),28,16)-1 LOOPCK 9g 
ge LOOPZ=BITGETCEBLOCKIIBLKST) 31256) LOOPCKIO 
10e NBRaBITGET(IBLOCK(IBLKST),6,6) LOOPCKII 
ile IFC IBLKNO -E@e -1) IBLKND=NBLOCK LOOPCKI2 
12e IST#IBLKND=-NBRe1 LOOPCKI3 
i x DO 100 I1*IST,IBiLKND _ sei ———— == = LOOPCKI4 
i4e JLOOP=LOOP2 LOOPCKIS 
ise IFC TBLOCK(1) ¢GEe 998) GO TO 100 LOOPCKIe 
1é6e IBLKeIBLOCK(1) 
17e NXTBLK®BITGET(STATRA(2,1BLK).36,18) 
16e KLOOPSBITGET(IBLOCKINXTBLK),12,6) LOOPCKIes 
te ~= IF(KLOOP .EQ. OF GO TO LOD = — ——— OP CEE 
20° IFtJLOOP .EQ. OP GO TO 200 LOOPCK20 
Zie SO IF(JLOOP .EQe KLOOP) GO TO 100 LOOPCK2i 
22e JLOOPsISTACK(3,JLOOP) LOOPCK22 
238 - JF{JLOOP .€Q. O) GO TO 200 = = ——— ae — el aa. 
24e GO TO $50 LOOPCK24 
290 200 IBLKsIBLOCKi1) 
2660 WRITE(6,201) STATRA(I,IBLK) 
Z7e 201 FORMAT(6X%,6SH ILLEGAL TRANSFER INTO THE RANGE OF A&A 0O LOOP AT STATLOOPCK26 
28 1EMENT NUMBER,16) LOOPCK27 
29a 100 CONTINUE —- —- —— —_ —— — wOOPCK LE 
30¢ TF CLBLKNO EQ. NBLOCK) RETURN LOOPCK29 
jie IBLKST#IBLKNDel LOOPCK30 
32 GO TO 10 LOOPCK3I 


jie END LOOPCK32 


———_—_———— 
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SUBROUTINE LVOLET 


COMMON/LVARGS/IFUNC ,IARGpJADDy IPOS, TYPy,IVALyLSTHED,NVALY 
+ TOSTRYIVALS( IO) ,ITYPEC IO) »NSKIP 
INTEGER FLGSPC,FLOMSK ,FLIMSK »FL2MSK ,FLSMSK yFLG67 REGASP, THIS 
> sFLIMSK.FLYMSK,SEQSPC 
COMMON/LVVTRI/MEMSZE ,REGASP ,NODSPC ( P)7LVVTR2/LSTSPCE Los 
@LVVTR3S/ULNKSPCE LISLVVTR4Y/SFLGSPC( i) 
COMMON/LYFLAG/FLOMSK FLIMSK FL 2ZMSKAFLIMSK FL OMSK FL SMSK FL GO7 
COMMON /LVTABL/ MAPS7E,MAP(I) /LVVSEQ/ ISEQSZ,SEQSPC( IL) 
DATA NFLGO2/9S/ 
KONFLC#O 
OETERMINE DJRECTJON TO PROCEEO FOR MULTIVALUE LISTS 
JPOS#IPOS 
IPOS*1ABS¢(1POS) 
IF(LAOD+NEs=1) GO TO 74 
IFC TARGeEQe=1) GO TO 66 
TAOD#IFUNC+IARG 
IF (CIADDsGT.MEMSZE) ILADDBILADO-MEMSZE - 
TLOG#FLGSPC(ITAOD) «ANDe FLSMSK 
IF(ILOG «EQs O) GO TO 99 
IF (NODSPC( LADD) cEQeIARG) GO TO 4 
SEARCH CONFLICT LIST FOR THE FUNCTION 
TADD*LNKSPC( LADD) 
TLOGaFLGSPCLLADD) 4AND. FLSMSK 
IF(ILOG s«NE~« 0) GO TO 99 
GO TO t 
TAOO=TFUNC 
TO DELETE a SPECIFIC TYPE OF NODE (INDEXED DELETE), GO TO 72 
IFCITYPeNEs=t) GO TO 72 
LLOGaFLGSPC(JADD) 4AND. FLOMSK —— 
IF(ILOG «EQ-s O) GO TO 6 
TSaODeLSTsPcc(raoo) 
DELETE ENTIRE MULTiVALUED FUNCTION, RETRIEVE FIRST VALUE 
IVAL*NOOSPC(ISADD) 
NXTADD®LSTSPC(ISAD0D) 
NOOSPC(1SADD)*NODSPC(REGASP) = 
LSTSPC(ISAD0) #REGASP 
LNKSPC(1SA00)#0 
FLGSPC(ISADD)*0 
ISUB=NOOSPC(REGASP) 
LSTSPC(1SUB)=ISADD 
—NOOSPCLREGASP )alSadd a 
ILOG*FLGSPCI(NXTADD) «ANDe FLOMSK 
IF(ILOG .zNEe O) GO TO 2 
ISAODSNXTAOD 
GO TO § 
FUNCTION IS SINGLE VALUED, RETRIEVE VALUE 
6 1VAL@LSTSPC(IADD) — _ ——_ 7 
2 TLOG#FLGSPCIITADD) «ANDe FLSMSK 
IF(ILOG sEQe O) GO TO 48 
NKXFUNC#®LNKSPC(ITAOD) 
ILOG#FLGSPC(NXFUNC) «ANDe FLSMSK 
IF(TLOG eNE« O) GO TO 10 
NODSPCLIADD) sNODSPCINAFUNC) 
LSTSPC(IADD) sLSTSPCI(NXFUNC) 
LNKSPC(IADO) #LNKSPC(NXFUNC) 
FLGSPC(IADD) =FLGSPC(NXFUNC) 
FLGSPC( LADD) =FLGSPC(IADD) eORoFLSMSK 
TLOG#FLGSPCIIADD) «ANDe FLOMSK 
JFLILOG s£@s. O) GO TO 9 ee ae 7 
KVAL#LSTSPC(LAOD) 
KVAL*®LSTSPC(KVAL) 
ISUB#LSTSPCI(KVAL) 
TLOG#FLGSPC(ISUB) «ANDe FLUOMSK 
IF(ILOG «€@- OP GO TO 8 
LSTISPC(KVAL) a1 ADO ——— - 
TADO*#NXFUNC 
NODSPC( LADD) =NODSPC(REGASP) 


tZ05177 


1205177 
1z06251 
COMPAND 
GIROLET 
GIROLET 
1205172 
1205177 
RRI 

GIROLET 


1204127 


1205032 
GIROLET 
GIROLET 
1207261 
120726) 


GIROLET 
1204127 
GIROLET 


GIROLET 
GIRDLET 
1204127 
GIROLET 


GIRDLET 
1Z04127 
120412? 
GIROLET 
GIRDLET 
GIROLET 
GIROLET 
1208251 


GIROLET 


GIROLET 
GIROLET 
1204127 
1204127 


GIROLET 


GIRDLET 
GIRDLET 
GIROLET 
t2ue25i 
GIROLET 


121202) 
GIROLET 


GIROLET 
GIROLET 
GIROLET 


b9e@ 
7U0e 
7Ile 
72e 
73¢ 
74e 
7S¢ 
7ke 
77° 
7b¢ 
798 
60¢ 
Ble 
A2e 
B36 
B4e 
8Se 
Bée 
B7e 
BBe 
B9e 
90¢ 
gie 
920 
930 
aoe 
9Se 
96e 
97¢@ 
78¢ 
99@ 
1o0¢ 
fate 
102¢ 
1036 
ludve 
tose 
106¢ 
1o7e 
108¢ 
109¢ 
11Q¢ 
thle 
Li2e 
1i3e 
live 
lise 
liée 
RET 
iige 
lige 
120¢ 
121¢ 
122¢ 
1236 
124° 
1256 
126 


1h LSTSPC( LADD) sREGASP 


LNKSPC(IADD) «0 
FLGSPC(TADD) #0 
ISUBSLSTSPC(IADD) 
NOOSPC(1SUB)=IAD0 
ISUB=NODSPC( LADD) 
LSTSPC(ISUB)#=IAD0 
RETURN = — 
72 ILOG#FLGSPC(JADD) «AND FLOMSK 

IF(ILOG «NEe OF GO TO 20 
IFCIPOSeNEw1) GO TO 99 
IFCITYPeEQ.e3) GO TO 6 
ISTYP=(FLGSPC(TADD) eANDSFLG67) 
IFLISTYPsEQs1TYP) GO 10 6 

99 TValz=-1 
RETURN 

20 IND#O 
FLGSPC(IAOD) #FLGSPC(IAQD).OReFL4YMSK 
LAST=IADO 
IF LJPO0S)123,99,21 

121) ISUB=LSTSPC(ITA0D) 
LASTI®UNKSPC(1SUB) 
THIS#LASTI 
GO TO 27 

21 IF (JPOSeLT-O) GO TO 80 
THIS#LSTSPC(LAST) 
TLOGSFLGSPC( THIS) »«ANDs FLOMSK 
IFCILOG ».NE«w O) GO TO 99 
GO TO 27 

60 THIS#LNKSPC(LAST) 
TFC THIS¢EQeLASTI) GO TO 99 

27___VE CLIP sEQa3), GO TO 25 “ 
ISTYP@LFLGSPCITHIS) eAND eFLGS67? 


IFCISTYPeEQeITYP) GO TO 23 
22, LAST#THIS 

GO TO 2) 
23. INDeINOSt 

LF (IND «NELIPOS) GO. TO 22 


RETRIEVE THE IPOSOTH OF THE KTYP@TH VALUE BEFORE DELETING 


IVAL"NOOSPC(THIS) 
MADOD=I1A00 
IF (JPOSe¢GT.O) GO TO 55 
NEXT=LNKSPC(THIS) 
IFC THISsEQsLASTI) GO TO 82 
UNKSPC(LAST) NEXT 
GO TO 83 

82 ISUBSLSTSPC(IADD) 
LNKSPC(1S5UB) =NEXT 

83 IFI(NEXTsEQs.LASTI) GO TO 84 
LSTSPCI(NEXTIELAST re eee 
GO TO 85 

84 LSTSPC(ILADD) ®LAST 

BS IADDSTHIS 
GO TO 86 

55 NEXTaLSTSPC(THIS) 
LLOG*FLGSPC(NEXT) «ANDe FLUMSK = a 
1F( [LOG .NE- 0) GO TO SO 
LNKSPC(NEXT)#LAST 
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GIROLET 
1206251 


GIRDLET 


1205052 
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GIKOLET 
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COMPAND 
GIROLET 
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GIROLET 
GIROLET 
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12085032 
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Rr cmeremnnn 


127e 


128¢ 
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I3le 
132e 
133e 
Lite 
135e 
13608 
137¢ 
138e 
1396 
140 
i4ie 
142¢ 
1436¢ 
b44e 
145e 
—~ 4460 
147e 
1488 
149e 
1S06 
iste 
— S20 
1S3e 
is4e 
isse 
1Sée 
157e 
1588 
1Ss9e 
1600 
bole 
162 
1636 
lode 
l6se 
146¢ 
l67e 
168¢ 
l6g9e 
1700 
17Le 
1720 


noe 


so 


24 


86 


74 


48 


26 


GO TO 24 


ISUBSLSTSPC{IADD) 

LNKSPC(ISUB)#LAST 

TADD#THIS 

JLASTSLNKSPCI(THIS) 
ISUBSLSTSPC(JLAST) 
TLOGSFLGSPC(ISUB) «ANDe FLOMSK 
LECILOG oNE~ OF} LNKSPCINEXT RULAST 
LSTSPC(LAST) #NEXT 
KLASTsLSTSPC(MADD) 

IF (LNKSPC(KLAST)«NESKLAST) GO TO 10 


CONVERT TO SINGLE VALUE LIST 


LSTSPC(MADD?) sNODSPCIKLAST? 
ILOGSFLGSPC(MADD) .ORe FLGSPCI(KLAST) 
FLGSPC(MADD)=ILOG «ANDe NFLGOZ 
FLGSPC(KLAST)I#0 
LNKSPC(KLAST)#0 

NOOSPC(KLAST) #NOOSPC(REGASP) 
LSTSPC(KLAST) =REGASP 
ISUBSLSTSPC(KLAST) 
NOOSPC(ISUB) #KLAST 
ISUBSNOOSPC(KLAST) 
LSTSPC(ISUB) =KLAST 

GO TO 19 

TLOGSFLGSPC( LADD) «AND. FLOMSK 
IF(ILOG «NE~ GO) GO TO 99 
TLOG*FLGSPC(I1ADD) s«ANDe FL2ZNSK 
IFCILOG -EQ@s O) GO TO 99 
LAST#LNKSPC(IADD) 
NEXTaLSTSPC{IADD) 

LSTSPC(LAST) #NEXT 
ILOGSFLGSPC(NEXT) SAND. FLOMSK 
IF(ILOG «NE» O) GO TO 10 
LNKSPC(NEXT) sLAST 

Go TO 10 

NEXT#*LNKSPCLIADD) 

NEXTI=NEXT 

IF (LNKSPC(NEXTI) eEQe1T ADD) GO TO 26 
NEXTISLNKSPC(NEXTID) 

GO TO 25 

LNKSPC(NEXTI) @NEXT 


KONFLC#L a 


GO TO 10 
ENO 


1204272 


1Z02092 
1202092 


1203032 
1Z0S032 
1202292 
1202292 
1202292 
4202292 
1202292 


1202292 
1202292 
bLO2292 
1202292 


@iKOLET 


GIRDLET 
GLROLET 
GIROLET 


GIROLET 
GIROLET 
GIRDLET 
GIROLET 
GIRDLET 
GIROLET 
GIROLET 
GIROLET 
GIROLET 
GIROLET 
GIRDLET 


ue 
lie 
i2e¢ 
13e 
ide 
1Se 
loe 
17e 
18e 
1g9e 
20e 
2ie 
22¢ 
236 
24e 
2Se 
26e 
27¢ 
28¢ 
29¢ 
30¢ 
3ie 
i2e 
33e 
34e 
35 
3oe 
37e 
388 
39¢ 
40¢ 
4ie 
42¢ 
43e 
44¢@ 
4Se 
46e 
47e 
4Be 
49e 
soe 
Sie 
Sze 
S3e 
S4e 
5se 
Sée 
S7e 
SBbe 
sye 
6ue 
6le 
42¢ 
63¢ 
64e 


25091 


100 


200 
Cc com 
c 


Coeee 


Ceeee 


Coeee 


Ceoeee 


Ceoeee 


SUBROUTINE LVEXKITIN) 
COMMON/LVARGS/LVFUNC,LVVARG LYVAD,LVVPOSyLVVIYPyLVVAL, 

*LVHEAD sLVVNVL pLVDEST,LVVALS( 10) ,LVTYPE CIO) sLVSKIP 
COMMON/LVIABL/LVTSIZ,LYMAP( L)/LVVSE@/LYSIZE sk YSQSP( 1) 
COMMON /TYP/ NN(3),ERRFLG 
COMMON /STRING/ NTYPE,NSTR 
COMMON /NEED/ START, ASSOC,LEVEL,STOP 


COMMON/NEEDS/STJsJSTACK Rp JAS ad a JLAST a RTEMP STACK (400.4) 
INTEGER R,RTEMP,STI,STACK ,ASSOC,START,STOP 

COMMON /GIRL/ MM(19),0PRAND 

COMMON /HL/ HOL,ACTION,FUNCI »FUNCZ,FUNC3SLEFT,RIGHT, STRING sMAKS 
COMMON /NTIMES/ NTIMES,MAXKI 

INTEGER STRING,HOL ACTION, RIGHT ,FUNCI »FUNC2,FUNC3,OPRAND 
LOGICAL ERRFLG 

EXECUTE 

Go TO 25000 

CONTINUE 

IF (MAXS «NEw OF PRINT 100,MAXKJ 

FORMATCIX,44H STATEMENT IS TOO COMPLEX. CORRECT TO CHARe. ,13) 
LF (MAKS c€Q6 OF PRINT 200,MAXI,NSTR 

FORMAT(IX,29H STATEMENT TOO LONG AT CHARe 413,3H OF ,13) 
MENTS USED IN CASE OF GIRS PROBLEMS WHEN MEMORY USED UP 
GO TO Iu 

IF (MAXI e«€Q- 0) GO TO 50 

IF(MAXJS «£96 0) GO TO 10 

DO 30 NCHAR=1 »MAXKJ 

STRING*HOL eNCHAR( LEFT, -RIGHT,-HOLy-STRING) 

STRING + HOL 

LvvPos = NCHAR 

LVVTYP @ 3 

LVFUNC® HOL 

LVVARGS STRING 

CALL LVFINDILV2 A,LV2 Bylv2 CyLv2 0) 
LVIAADSSTRING 

IFCLVVAL eNEe -1) LVI AAOSLVVAL 

LVLAALRLVIAAD 

uvi ARK - LEFT 

LVVADs~1 

LVVTYPS-1 

LvvPOS"1 

LVFUNC® LEFT 

LVVARGELVIAAL 

CALL LVOLET 

LYLAAL*LVLAAU 

uvi AAK - RIGHT 

LVVAOe~1 

LvvTyPe-t 

LvyvPosel 

LVFUNC® RIGHT 

LYVARGSLVIAAL 

CALL LVOLET 

LVIAAT*SLVIAAD 

uvi AAX - HOL 

LVVAOe-] 

LVVTYPeel 

LvyPOS#) - 

LVFUNC® HOL 

LVVARGSLVIAAI 

CALL LVOLET 

LVLAAL®LVIAAD 

tvt AAX - STRING 

LYVAD=-1 ees oe 

LVVTYPeet 

LYvPOS®! 


rer wre . 


65e LVFUNCs STRING 
660 LVVARGSLVJAAL 
67e CALL LVOLET 
68e 30 CONTINUE 
69e Cc STRING=STRING 
70¢e Ceeee STRING - STRING 
Jie LV¥VADS-1 
eee YC CVVEYEs=3 
730 LvvPosel 
P4e LVFUNC® STRING 
7Se LVVARGs STRING 
7oe CALL LVOLET 
77° € OPRAND(=OPRAND,=STRING,~ACTION,=-FUNCI) 
289 LYVLAAD*OPRAND a 
79° Ceeee LVI AAT - OPRAND 
aoe LVVADs-1 
Ble LvvTrPe-t 
a2e LvyvPosel 
B3e LVFUNC® OPRANO 
ooo Cc eee __LVVARGsLV Aad = Se 
8S5e CALL LVOLET 
Roe Ceeee LVI AAT - STRING 
87e LVVAD#-1 
&Be LYVTYPe-t 
89e LvvPOssl 
200 LYFUNC® STRING 
Fle LVVARG#LVIAAD 
92¢ CALL LVOLET 
93e Ceoeee LVI AAT - ACTION 
Q4e LYVADe-1 
9Se LVVTYPe-1 
al 2he ee as rw a = —— 
97° LVFUNC® ACTION 
2660 LYVARG*LVIAAD 
990 CALL LVOLET 
100¢ Ceeee LVI AAT - FUNCIL 
1Ole LVVADe-I 
a yt LYyTYPe-1 SS aa a eS Ee ee 
1O3¢ LvvPosel 
1046 LVFUNC® FUNC] - 
10Se LVVARG#LVIAAD 
iQee CALL LYOLET 
1o7e¢ 10 CONTINUE 
——_ -LRS REWIND 19 - ae 
109e NTIMES*"O 
11Q¢ C 10 CONTINUE 
lille c REWINO 99 
ti2e Cc NTIMES#O 
lize JENSTReEIE 
lide R=sToP = = a se = z 
1ise STy#R 
lle6e ERRFLG=.TRUE® 
tive JSTACKel 
116e STACK(JISTACK,1)"®S5STOP 
119e STACK(ISTACK,2)"100 
_120¢ STACK (JSTACK JD 8Y 7 ieee 
12ie STACK (JSTACK, 4189 
122¢ ¢ NSTR#O 
1236 NSTR#MAKS 
1240 c COMPLETE 
125¢ RETURN 
126¢ 25000 CONTINUE 
1276 LV2Ae0 
126¢ Lv26*0 
1296 Lv2ce#0 
1308 Lv¥2000 
i3te Lv2E*0 
132e Lv2Feo 
1336 Lv2G#0 
base Lv2HeO 
13Se GO TO 25001 


i34e ENO 


SUBROUTINE LVFECH(N) 

INTEGER FLGSPC,SEQSPC,REGASP 

COMMON /LVTABL/ MAPSZEMAP( 1) /LYVSEQ/ ISEWSZ,SEQSPCI(1) 
COMMON/LVVTRI/MEMSZE,REGASP ,NODSPC( DPZLVVTR2/LSTSPC( lye 
@LVVTR3/LNKSPCE L)/LVVTRY/FLGSPC( ) 
COMMON/LVRAND/KPRIME ,KS,KX,KOYV sKOX,KTEMP 

READIN) MEMSZE,REGASP,KPRIME KS yKXgKTEST sKOY,KTEMPyKOX,KNUM 
+, TSEQSZ 

READIN) (NQDSPC( I) gf et ,MEMSZED 
READ(NI(LSTSPC(I1), 181 ,MEMSZED 

READ(ND(LNKSPC( I) ,1e1,MEMSZE)D 

READCNICFLGSPC( IE), LatMEMSZE} 

READIN) (SEQSPC( IT) ,1#1,1SEQSZ) 

PRINT 10 

10 FORMAT{(////1X%.,34H GRAPH HAS BEEN PLACED INTO MEMORY//) 

RETURN 

ENO 


1205177 
COMPAND 
1205177 
1207081 
1zZ07081 


1202147 
1205177 
120708) 
1207081 
1207081 
1207081 
1205177 
COMPAND 


1207061 
1207081 


16 


2e 
3e 
se 
Se 
be 
7e 
Be 
Fe 
ioe 
lie 
ize 
I3e 
l4e 
1Se 


1ae 
17e 
18e 
19e 
20e 
Zte 


222 


236 
24@ 
2Se 
240 
27¢ 
2B@ 
298 
30¢ 
3ie 
32e 
330 


CC ——— 


3Se¢ 
3460e 
37e 
388 
39¢ 


fh ar 


41e 
420 
43e 
44e 
4Se 


I 


47e 
4Be 
49e@ 
soe 
Sie 
S26. 
S3e 
S4e 
55e 
Soe 
S7e 
She _ 
Sve 
4o¢ 


COUNT DOWN FROM THE TOP OF THE LIST | 


SUBROUTINE LVFINDUINDEX,INDXAD,KFUNC,KARGI 


COMMON/LVARGS/IFUNC,IARG,IADD,IPOS,ITYPyIVAL,LSTHED,NVAL) 
+ LOSTRYsIVALS(10),1TYPI( 10) »NSKIP 


INTEGER FLGSPC,REGASP,FLOMSK »FLIMSK »FL2MSK »FLIMSK »FLYMSK »FLSMSK, 


* FLG67,SEQSPC 


COMMON/LYFLAG/FLOMSK gFLIMSK »FL2MSK pFLIMSK »FLYMSK pFLSMSK,FLGO7 


COMMON /LVTABL/ MAPSZE,MAP( 1) /LVVSEQ/ ISEQSZ,SEQSPC(1) 
COMMON/LVVTRI/MEMSZE ,REGASP ,NODSPC( P}7LVVTR2/LSTSPC( tis 
*LVVTR3/LNKSPC( L)/LVVTRA/SFLGSPC( im) 

OATA NFLAG4H/S2477 

TAODSIFUNC +I ARG 

TF (LADD eGTeMEMSZE) LAQD=IADD-MEMSZE —s = —— 
LSTHED#0 

TLOGSFLGSPC(IADD) +«ANDe FLSOMSK 

IFC ILOG e€Q6 O) GO TO 99 


IF(NOOSPC(ITADD) sEQ@eITARG) GO TO 4 
TADD#LNKSPCLIADD) 

ILOG*FLGSPC(IAOD) «ANDO. FLOMSK 

IF(ILOG eNE« 0) GO TO 99 

GO TO 1 

[LOGSFLGSPC(IAOD) «ANDO. FLOMSK 

1FLILOG sNEs O} GO TO 44 
ISTYPm(FLGSPC(ILAOD) eANDsFLG67) 

IFC ITYP.EQ.3) GO TO tI 

IFC ISTYPSEQ.3DISTYPH2 

IFCISTYPeNESITYP) GO TO 99 
IVAL®LSTSPC(IADD) 

IF CLLPOSsNE SL) sANDS(IPOS.NEs=1)) GO TO 99 
ITYP=(FLGSPC(ITADD) eANDsFLG67) 

LSTHED#®-1 

RETURN 

LSTHED#IADD 

INOsG 
KNDEX SLABS (INOEX) — —_— 
JPOS#IABS( IPOS) 

IFUNSKIPsEQ.1) GO TO 50 

IF ((KFUNC NE «TI FUNC) ORs (KARGeNESIARG)) GO TO 50 
ILOGSFLGSPC(LSTHEDO) «ANDe. FL4MSK 

IF(ILOG eNEs OF GO TO 50 


—_4FALIPOSaINOEKS .LE- G+ GO TO $0— 


IF (JPOSeLT.2) GO TO 50 
NOXmFLGSPC(INDOXAD) 

TLOGSNOX .ANDe FLSMSK 

IF(ILOG «NE~ DO) GO TO SO 

TLOGSNDX ,.ANDe FLIMSK 

IFLILOG «€Q. OG) GO TO SO 

TF ( JPOSe¢GE«KNDEX) GO TO 25 

1F (CUPOS*#5P0S) «LE sKNOEX) GO TO SO 
IFC IPOS) 30,99,40 

FLGSPC(LSTHED) *FLGSPC(LSTHED) eANDeNFLAG4Y 
IF (IPOS) 20,997,180 


TADDSLSTSPCIIADD) 

ILOG*FLGSPC(IADD) «ANDe FLOMSK 

IF(ILOG «NE« OF GO TO 99 

ISTYPe(FLGSPCLIADD) sANDeFL G67) — — — 
TFC ETYPeEQ.3) GO TO 22 

IFCISTYPsEQs3SIISTYP #2 


TZO5177 


1205177 
COMPAND 
COMPAND 
1205177 
R20St77 
GIRFIND 
GIRFIND 
RR} 

1207261 
1207261 
GIRFIND 


GIKFIND 
GIRFIND 


GIRFIND 


GIRFINO 
GIRFINDO 
GIRF IND 
1201042 
GIRKFIND 
1202042 
GIRFIND 
GIKFIND 
GERFIND 
GIRFIND 
1Z12271 
ddd2are 
1212271 
COMPAND 
1201107 


12086237 
1208177 


1Z12271 
1Z12271 


COMPAND 


1212271 
1zZi2271 
1Z12271 
1Z12271 


izi2274 
1212271 
1212271 


Sc A AA a NL a ale lt a bl i eal A cn Sn 


ole 
62e 
o3e 
ave 
45e@ 
60e 
47e 
oge 
ove 
que 
716 
72¢ 
73e 
74e 
756 
76e@ 
77¢ 
THe 
79¢@ 
ace 
ale 
82e 
Bie 
aYe 
BSe 
eee 
B7e 
BBe 
B9e 
906 
Fie 
928 
93e 
G4e 
95¢ 
9be 
97 
98¢ 
990 
1o0¢ 
iole 
102¢ 
103° 
104¢ 
10se 
106¢ 
1o7e 
gee 
love 
iloe 
a 
lize 
lise 


Pew 


tal 


ig 


QUNT 


24 


rat 


COUNT 


Cc 


40 


fbf 


1FCISTYPeNEoS TYP) GO TO 10 
INDSIND*1 

IFCINDeNE.JPOS) GO TO 10 
IVALZNOOSPC( LADD) 
LTYPS(FLGSPC( LADD) eANDe FL G67) 
INDEX#IPOS 

INDXAD SL ADD 

KFUNCSIFUNC 

KARG#IARG 

KETURN 


UP FROM THE BOTTOM OF THE LIST 


TADDVZLSTSPCHITADD) 

KTEST#V 

TADUALNKSPCUTADO) 
IFCKTEST.EQeu) GO TO 24 
ISUBSLSTSPC( LADD) 
TLOGSFLGSPC(ISUB) eANDe FLUMSK 
IF(TLOG «NE YU) GO TO 99 
KTEST2I 

ISTYPECFLGSPCUIADD) eANDoFLGE7) 
IF CITYP.EQ.3) GO TO 21 
IFCISTYPcEQ Se SIISTYP #2 
IFCISTYPNESITYP) GO TO 23 
INDZINDe? 

IF CINDeNE.JPOS) GO TO 23 
IVALENOOSPC(IADD) 
ITYPRIFLGSPC( LADD) eANDFLG67) 
GQ TO SS 

IF CEPOS? 40,99,30 


DOWN FROM INDXKADO 


JPOS#IABS( JPOS=KNDEX) 
TADD=INDXAD 

TFC UPOSSEQ.0) GO TO 28 
Go TO 10 


UP FROM INDXAOD 


JPOS*IABS(UPOS=KNDEX) 
TADD#INDXAD 

IF C(UPOSeEQ.0) GO TO 29 
KTEST#l 

GO TO 23 

IVALs=1 

INDEX#0 

INOXAD#0 

KFUNC®Q 

KARG#0 

RETURN 

END 


Pi227i 
iZiz27i 
1212271 
IZi2271 
1LZi2271 


12051377 
121107 
1201107 
1212271 
Zi227i 
1Zi2271 
1Z12271 


1212271 
1£010%2 
1212271 
1Zulo42 


[201042 
121227) 
1212271 
1212271 
1212271 
Ldi227i 
1212271 
a Wr | 
12Zi2271 
p2i227) 


[éi227i 
tZi2271 
1212271 
1208037 
1205177 
1212271 
1212271 
1212271 
1212271 
1212271 
1208037 
[205177 
1212271 


1212271 
GIRF INO 
RRL 
RRI 
RR} 
RRI 
GIRFINO 
GIRFIND 


le SUBROUTINE LVGRN(NODE) 
Sa _ INTEGER FLGSPC,REGASP = = SS = 120825) 
3e COMMON/LVVTRI/MEMSZE ,REGASP ,NODSPC( 1) /LVVTR2/LSTSPC( Lis 1Z06161 
4@ eLYVITRI/LNKSPCE DI/LYVIR4S/FLGSPC( 1} 1Z06161 
Se COMMON/LVRAND/KPRIME,KSEED ,NROM,KONODE ,KOROW,KTEMP 
4e NODE &©K TEMP *KONODE 
Te KTEMPSNOOE 
———__ fe ______ KONDDE BKONODE +t - — ee r. 
9e IF (NODE «GT. MEMSZE) GO To 5S 
1Q¢ RETURN 
lie 5S IF(NROW «GT. KPRIME) GO TO 10 
12° NROW=NROW+KSEED 
I3e IF (NROW «GT. KPRIME) NROW@NROW-KPRIME 
—_ 156 RODEN ROS ——— = ———— = —— — a 
ise KTEMP=NODE 
1ée KONODESKPRIME*!L 
ve IF (NODE «NEs KSEED) RETURN 
18¢ NROA#0 
19e KDROW#KPRIME 
20e¢ ____ 10 KOROM#KOROMeL ——— a a = = 
216 NROW#NROW+KOROW 
220 NODE sNRO® 
23e KTEMPaNOOE 
24e ____ KONODE#KOROQW _ sees, See a ee ee = = 
2Se¢ IF (NODE «GT.s MEMSZE) GO TO 20 
26¢ RETURN 1Z06161 
27° 20 PRINT 15 COMPAND 
266¢ 15 FORMAT(IH ,1X947H ERROReesNUMBER OF NODES EXCEEDS REQUEST MEMORY/ RRI 
290 27H THE PROGRAM IS TERMINATED.) RRI 
— ee -STor ae = = —— 1206161 
3le ENO 12O6lset 


le SUBROUTINE LVNSRT 1205177 


7 2e COMMON/LVARGS/IFUNC,IARG,IADO,IPOS,ITYP2,1VALyLSTHEDyNVALy 
3e * IDSTRYsIVALS(I1O),1TYP( IG) ,NSKIP 1205177 
4e INTEGER FLGSPC,FLOMSK,FLIMSK »FL2MSK ,FLSMSK,FLG67,REGASP,TEMP,THIS, 1208251 
Se + FLGIMP,TWO,THREE »,HEAD,OLDLOC,ASPREG,SEQSPC,FLIMSK ,FLYMSK COMPAND 
be COMMON/LVVTRI/MEMSZE,REGASP ,NODSPC( L)/LVVTR2/LSTSPC( Oh es GIRNSKT 
Te *LVVTR3SLNKSPC A LYSLEVVTR4YSFLGSPCK 1) GIRNSRI 
Be COMMON/LYFLAG/FLOMSK gFLIMSKyFL2MSK AFL OMSK yFLYMSK yFLOMSK FLGO7 1205177 
ge COMMON /LVTABL/ MAPSZE,MAP(1) /LVVSEQ/ ISEWS2,SEQSPC(1) 1205177 
10¢ DATA TWO/2/,THREE/SI3/,NFLGEI/S252/ KRI 
lle (; 1206097 
j2e FLGTMPaeFLIMSK 1206097 
I3e c 1203302 
L4e IF (REGASPeEWeLSTSPCIREGASP)) GO TO 98 1203302 
Se c GIRNSRT 
lée fe FORM FIRST WORD OF SINGLE OR MULTIVALYED FUNCTION GIKNSRT 
17° TF (NVAL¢EQe¢1)GO TO 20 GIRNSRT 
18e LSOTIMPREGASP GIRNSKT 
19e FLGTMP®(FLGTMP.ORseFL2MSK) GIRNSKRT 
zue FLGTMPS(FLGTMP 2OReFLOMSK) GIRNSKRT 
Zie GO TO 24 GIRNSRT 
22¢ Zu LSTTMPsIVALS(1) GIRNSRT 
236 21 FLGTMPS(FLGTMP.OReITYP(1)) GIRNSRT 
7 246 C GIRNSRT 
Y 256 Cn rn nn rn nn rn rn rt nen = GIKNSKT 
26¢ C-OETERMINE ADORESS FOR FUNCTION GIRNSRT 
2re TLADD*IFUNC*+I ARG GIRNSRT 
zee IF (LADD .GTsMEMSZE) TADD=IADD-MEMSZLE I2Zu72e1 
29¢ a GIRNSRT 
30¢ ¢ IF THAT ADORESS IS ALREADY IN WORKING SPACE, GO TO 25 GIRNSRT 
3le IF (LOSTRY=1) 125,300,350 1205177 
32¢ 125 ILOG=FLIMSK sANDe FLGSPC(IAD0) 
jie (CF CILCOG «NEs Ot GO TO 25 
34e iG GIRNSKT 
35¢ C UPDATE REGASP(IF NECESSARY) GIRNSKT 
360 23 IF (LADD sEQeREGASP)REGASP=LSTSPC(IADD) GIRNSRT 
376 C GIRNSRT 
38¢ ¢ UPDATE AVAILABLE SPACE GLRNSRT 
390 ISUB*NODSPC(ITADD) 
400 LSTSPCUISUB)ELSTSPC(TAOD) 
4le ISURaLSTSPC(IADD) 
42 NOOSPC(TSUB)=NODSPCITAOD) 
43e Cc GIRNSKRT 
44e@ C INSERT FUNCTION GIRNSKT 
4Se@ 24 NODSPC(IANDD) FI ARG GIRNSKT 
4be LSTSPC(ITADD)2LSTIMP GIRNSRT 
47° ULNKSPC(ITAD0)=1AD0 GIRNSRT 
yee FLGSPCCIADO)FFLGSPCILADN) «ORs FLGTMP 
49 FLGSPC(TADD) 2FLGSPC(TAO0D) «ORe FLYMSK 
Sue FLGSPC(IADD)=FLGSPC(TADD) «OR. FLSOMSK 
Sle c GIRNSKT 
S2e c INSERT ANY ADDITIONAL FUNCTION VALUES GIRNSKHT 
i S3e HEAD=ITADD GIRNSRT 
S4e OLOLOC#IADO GIRNSRT 
5se JF UNVAL2GT213G0 TO SG GERWSRI 
{ bee c GERNSKT 
S7e ¢ IF LAST CELL OF AVAILABLE SPACE WAS USED, WRITE MESSAGE GIRNSRT 
SBe IFC REGASP.CEGeLSTSPC(REGASP)) GO TO 909 12ZU3302 


Soe 


60e 

éle 

62¢ 

é3e 

ove 

6Se 

6608 

67e 

68e 

69° 

70e 

7le 
en 72a 
73e 
74e 
7Se 
7be 
77e 


—__78.a_ 


79¢@ 

q 4 B0¢ 
Bie 

B2e 

B3e 

Bia 

8Se 

Boe 

87¢ 

3 Bae 
7 q 89e 
90a 
gle 
920 
93e 
94e 
95e 
—P9bea 
97e@ 
98e 
990 
i 100¢e 
ae 1ole 
Bes 1020 
q 1036 

‘ 1O4%¢ 

‘ ; 10Se 
106¢ 

4 1076 

fi 108¢@ 
‘ 1o09e 
i10¢ 
jile 
lize 
f ii3e 
‘ 4 lide 
. lise 
llée 


IVAL@IABS(IVALS(I)) 
RETURN 


Cc IF THAT AOORESS CONTAINS THE HEAD OF A CONFLICT LIST, 


25 ILOG#FLSMSK «AND. FLGSPC(IADO) 
IFC(ILOG «GT. 0) GO TO 41 


c LF THAT ADORESS CONTAINS A VALUE ON A MULTIVALULE LIST, €O Ty 35 


TLOGSFL2MSK «AND. FLGSPCIIADD) 
TLOG2Z=@FLOMSK «ANDe FLGSPC(IADO) 


IF(ILOG ¢GTe O eANDe ILOG2 «EG. O) GO TO 35 


C-THE ADORESS CONTAINS A FUNCTION ON A CONFLICT LIST,BUT NOT 


THIS#1A00 
c 


c FIND THE PRECEDING FUNCTION ON THE CONFLICT LIST 


26 ISUBSLNKSPC(THIS) 
IF (LNKSPC(I1SUB) »«EQ@. IAD0) GO TO 27 
THISaLNKSPC(THIS) 
GO TO 26 
27 LAST@LNKSPC(THIS) 
NEWLOC#REGASP 
IF (REGASP.EQsLSTSPC(REGASP)) GO TO 98 


c UPDATE AVAILABLE SPACE ANO REGASP 
28 ISUBsNOOSPC(REGASP) 
LSTSPC(ISUB) SLSTSPC(REGASP) 
ISUB=LSTSPC (REGASP) 
NOOSPC(ISUB) =NOOSPC(REGASP) 
REGASP#LSTSPCI(REGASP) 


( MOVE THE FUNCTION ON A CONFLICT LIST TO THE FIRST CELL OF AVAILABLE 


29 NODSPC(NEWLOC) sNODSPC(IADD) 
LSTSPC(NEMLOCIBLSTSPCI(IAOD) 
LNKSPC(NEWLOC)=SLNKSPC(IADD) 
FLGSPC(NEWLOC) =FLGSPC(IADD) 
#LGSPCLIADD) «2D — 
LNKSPC(LAST) #NEWLOC 


c 
¢ INSERT THIS FUNCTION AS THE HEAD OF A CONFLICT LIST 
NODSPC(IADD) #1 ARG 
LNKSPC(IADD)#1A00 
LSTSPC(LADD) aLSTIMP —— 
FLGSPC(IADDIS(FLGTMP,OReFLGSPC(IADD)) 
FLGSPC( LADD) 2(FLSMSK.ORsFLGSPC(1A00)) 
FLGSPC(IADD)SFL4YMSK ,ORe FLGSPCIIADD) 
ILOG*FLGSPCINEWLOC) .sANDe FLOMSK 
IF(ILOG «EQ. 0) GO TO 34 
c 2eae eee 


o IF THE FUNCTION THAT W.S MOVED IS THE HEAD OF A MULTIVALUE LIST,FIX 


NEXT#LSTSPC(NEWLOC) 

30 NEXT#LSTSPC(NEXT) 
IF(LSTSPC(NEXT) «NE«TAOD)GO TO 30 
LSTSPC(NEXT) #NEWLOC 


ial 


c INSERT ANY ADOITIONAL FUNCTION VALUES 
34 HEADsIADD 


f be 


THE HEAD OF 


1Zi12i7 
GIRNSRT 
GIRNSRT 
GIRNSKT 


GIRNSRT 
GIKNSRT 


GIRNSKT 
GIRNSRT 
GIRNSRI 
GIRNSRT 
GIRNSRT 
GIRNSRT 


CIRNSKT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
1203302 
GIRNSRT 
GIRNSRT 


GIRNSRT 
SIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
1206251 
1208251 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRI 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 


GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 


L17e OLDLOC#IADD GIRNSRT 
ijse IF (NVAL*GT.1)GO TO 5Q ee oe a - ” - GIRNSRT 
119 LF (REGASPLEQs«LSTSPC(REGASP)) GO TO 909 1Z03302 
120¢ IVALSIABS(IVALS(1)) IZti2i7 
i2te RETURN GIRNSRT 
i226 ¢ GIRNSRT 
i23¢ OC ae en re ne nn nn en nn nn nn nn en nn nn rn nn nn nn nn nn renee nn GIRNSRT 
i24e C-THE AODRESS CONTAINS A VALVE ON A MULTIVALVE LIST GLIRNSRT 
125¢ 35 NEWLOC#REGASP GIRNSRI 
1Zoe IF (REGASPsEGeL STSPCIREGASP)) GO TO 98 1203302 
i27¢ c GIRNSRT 
izee c UPDATE AVAILABLE SPACE AND REGASP GIRNSRT 
1298 36 ISUB=NODSPC(REGASP) 
13de LSTSPC(1SUB) SLSTSPCIREGASP) — — = eS 
I31e ISUB=LSTSPC(REGASP) 
132¢ NOOSPC(ISuUB) =NODSPC(REGASP) 
i336¢ REGASP#®LSTSPC(REGASP) GIRNSRT 
lite c GIRNSRT 
135¢ Cc MOVE THE VALUE ON A MULTIVALUE LIST TO THE FIRST CELL OF AVAILASLE S GIRNSRT 
1368. 37 NODSPC{NEwLOC) sNoDSPC(1ADD) a=? -= —— — GIRNSRI 
137¢ LSTSPC(NEWLOC) ®LSTSPC( LADD?) GIRNSRT 
Lage LNKSPC(NEWLOC)*LNKSPC(LADO) GIRNSRT 
1396 FLGSPC(NEWLOC)=FLGSPC(TAOD) 1206251 
140¢ FLLGSPC(IADD) 20 1z06251 
l4le c 1203272 
142¢ c RESET POINTERS 1203272 
L430 c 1203272 
l44e LbeLSTSPC(NEWLOC) 1203272 
1456 }LOG=FLOMSK «ANDe FLGSPCILI) 
L46e IFCILOG .£@. QO) GO TO 200 
1476 ISUB®LSTSPCILI) 
148¢_ LNKSPC(ISUB) =NEBLOC Se ——— 
1498 GO TO 201 1203272 
1s0¢ 200 LNKSPC(LI)=NEWLOC 1203272 
Ste 201 ISUB=LNKSPC(NEMLOC) 
is2e KZVALSLSTSPC(1SUB) 
1536 ILOG=#FLGSPCI(KZVAL) sANDe FLOMSK 
is4e IFC{ILOG «NE» QO) GO TO 38 ——— ee — 
1SSe TSUBSLNESPCINEWLOC) 
iSée LSTSPCCISUB) s=NEMLOC 
: 157¢ GO TO 39 iZit301 
’ 1586 38 LSTSPC(KZ VAL) eNFALOC 1Z11301 
1S9e 39 NODSPC(TADD) =IAKG 1211301 
14oe Vs: INSERT THIS FUNCTION aS THE HEAD OF A CONFLICT LIST * GIRNSRT 
léle UNKSPC(T ADD) #1400 GIRNSRT 
142¢ LSTSPC( LADO) sLSTIMP GIRNSRT 
16360 FLGSPC(TADD) #(FLGTMP,OReFLGSPC(IADD)) GIRNSRT 
lo4e FLGSPC( LADD) S(FLSMSK,OReFLGSPC(IAOD)) GIRNSRT 
16Se FLGSPC(CIADO)SFLYMSK ,OR» FLGSPC(IADD) 
laoe IF(REGASP.EQeLSTSPC(REGASP)) GO TO 909 < 1403302 
167¢ IVAL®IABS(IVALS(1)) 12it2i7 
1686 RETURN GIRNSRT 
1698 c GIRNSRT 
170° Coo nn nn en nn on nn en en nn nr ee ne en rn nn nn nn nn ene nnne GIRNSRT 
171e C-THE AODRESS CONTAINS THE HEAD OF A CONFLICT LIST GIRNSRT 
172¢ 41 THIS*1ADO is — QLRNSRT 
1736 c GIRNSRT 


i74e Cc IF THE FUNCTION TO BE INSERTED IS NOT ON THE CONFLICT LIST, GO TO 60 GIRNSRT 


/6 


es 


List 


i7se 42 LF (NOOSPC( THIS) cEQ@eIARGIGO TO 43 
1768 ISUBSLNKSPC(THIS) 
1778 [LOG*FLGSPC(ISUB) «AND. FLSMSK 
178¢ IF(ILOG eNEs OF GO TO 60 
1798 THIS#UNKSPC(THIS) 
igoe GO TO 42 
Bie 3 
1s2e C-+---+---------------- i rr 
i636 C-THE FUNCTION TO BE INSERTED IS ON THE CONFLICT LIST 
1a4e 43 HEADSTHIS 
18S5¢ TLOG*FLOMSK «AND. FLGSPC(THIS) 
1B6e IF(ILOG .€Q. 0) GO To SI 
iB76 NEXT#LSTSPC(THIS) 
isse e 
lage ¢c OLOLOC IS THE LOCATION OF THE LAST VALUE ON THE MULTI VALUE 
ivoe c 
oie OLOLOCSLNKSPCINEKT) 
1920 c 
1938 Cn--- wo reeree-e--- Seleeteeieteaieteiateieietetedeetatetatetel 
194" CaINSERT ADDITIONAL FUNCTION VALUES 
1950 $0 LSTASPSNODSPCIREGASP) 
1968 INO 
1976 GO TO 56 
1980 [2 
1998 Conn - ere ee --- +--+ +--+ ------ ween enn ee ne ne en ee ee - = -- 
2008 C-FORM MULTIVALUE LIST TO ADD VALUEIS) ITO SINGLE=VALUED FUNCTION 
201e Si InN=zO 
2020 [Ff (REGASP 6EGeLSTSPC(REGASPIIGO TO 93 
2030 LSTASP#NODSPCIREGASP) 
204e NE®LOC #REGASP 
205e REGASPSLSTSPC(REGASP) 
2068 NOOSPC(NEWLOC) @LSTSPC( THIS) 
207¢ TEMP=(FLGSPCITHIS) eANDeFLG67) 
2088 FLGSPC(NEWLOC) © (TEMP.OR«FLGSPC(NEWLOC)) 
209¢ FLGSPCC THIS) SC FLGSPC( THIS) eANOWNFL GOT) 
21i0¢ FLGSPC( THIS) #(FL2MSK.OReFLGSPCITHIS)) 
2tte FLGSPCUTHIS) S(FLOMSK .OReFLGSPCITHIS)) 
212¢ OLOLOCsTHIS 
2136 c 
2i4e Cn nn ne nn nn nn nn nn nn en nn nn enn nnn n ee 
215¢ C INSERT ANOTHER VALUE ON MULTIVALUE LIST 
2146 s2 FLGSPC(NEM@LOCI #(FL2MSK.ORSFLGSPC(NEWLOCI? 
2176 FLGSPC(NEWLOC) #(FLIMSK «OReFLGSPC(NEWLOC)) 
21B¢ LSTSPC(OLDLOC) wNEMLOC ee 
219¢ LNKSPC(NEWLOC) =OLOLOC 
220¢ ss OLOLOC#NEAMLOC 
2216 S6é NEWLOC SREGASP 
222¢ IFC INeGT«eO)GO TO S7 
2236 c 
— 224i Cc NO VALUES MaVE BEEN INSERTED YET ———— = - - 
225¢ IN] 
226¢ GO TO SB 
227¢ « 
226¢ c SOME VALUES HAVE BEEN INSERTED 
2290 57 IF CINSEQsNVALIGO TO 67 
2308S ~ eae eee 
2316 Cc 
232¢ SB IF(REGASPsEG@eLSTSPC(REGASP)) GO TO 909 


GIRNSAT 


GIRNSKT 
GIRNSKT 
GIRNSRT 
GLIRNSKT 
GIRNSKT 
GIRNSRT 


tzZ0e097 
1ZO4192 
iZ04197 
1ZO04197 
1LG4197 
GIRNSRT 
GIRNSKT 
elkaSat 
GIRNSRT 
GIRNSAT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSKI 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
1206097 
1207021 
GIRNSRAT 
207021 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GINNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GLRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRT 
GIRNSRI 
GIRNSRT 
1Zit277 


2336 581 REGASPsLSTSPC(REGASP) GIRNSRT 


2340 S82 NODSPCINEWLOC)#IVALS(IN) ae es = GIRNSRT 
235¢ FLGSPCINEMLOC) S(ITYP(IN) sORSFLGSPC(NEMLOC)? GIKNSRT 
230¢ GO TO $2 GIRNSRT 
2378 c : GIRNSRT 
238¢ c END MULTIVALUE LIST ANO UPDATE AVAILABLE SPACE GIKNSRT 
2396 67 LSTSPCCOLOLOC) sHEAD GIRNSRT 
240¢ NOOSPC{(REGASP)sLSTASP — GIKNSRKT 
2418 LSTSPC(LSTASP) sREGASP GIKNSRT 
2420 IVALSIABS(IVALS(1)) 1Zb1217 
2430 ISUB=LSTSPC(HEAD) 
2440 LNKSPC(ISUB) sOLDLOC 
2458 NVAL#IN GIRNSRT 
246° IF (CREGASP EQ eLSTSPC(REGASP)) GO TO 909 _ 1231277 
2478 RETURN GIRNSRT 
2466 c GIRNSRT 
2498 € oo a nr nn nn nn nn ne ee eo nn on en ee ee ne nn ee en en nn en ne ee nnn ene GIRNSRT 
25g¢ C-THE FUNCTION TO BE INSERTED IS NOT ON THE CONFLICT LIST GIRNSRT 
2s51¢ 60 ASPREG™REGASP GIKNSRT 
2sze LSTASP*NODSPC(REGASP) = = = GIRKNSRT 
2536 IF (REGASP.EQ«LSTSPC(REGASP)) GO TO 98 1203302 
2546 c GIRNSRT 
255¢ c UPDATE AVAILABLE SPACE AND REGASP GIRNSRT 
2568 601 [SUB=SNODSPC(REGASP) 
2576 LSTSPC(ISUB) =@LSTSPC(REGASP) 
256¢ ISUB=LSTSPC(REGASP? 
2598 NODSPC(ISUB) =NOOSPC(REGASP) 
260° REGASP=LSTSPC(REGASP) GIRNSRT 
2eLe c GIRNSRT 
262z¢ c INSERT FUNCTION IN FIRST CELL OF AVAILABLE SPACE GIRNSRT 
2630 6t NODSPC(ASPREG) ®IARG GIRNSRT 
2440. FEENVILSES S160 1904 a —— GIRNSRT 
2656 LSTSPC(ASPREG) ©REGASP GIRNSRT 
2668 FLGSPC(ASPREG) @(FLZMSK ¢ORyFLGSPC(ASPREG)) GIRNSRT 
2e7¢ FLGSPC(ASPREG) #(FLOMSK+OR«FLGSPC(ASPREG)) GIRNSRT 
268° GO TO 612 GIRNSRT 
2690 611 LSTSPC(ASPREG) @IVALS( 1) GIRNSRT 
_270¢ 612 FLGSPC(ASPREG) #(ITYP( J) eORsFLGSPC(ASPREG)) _ = —s GIRNSRT 
2716 FLGSPC(ASPREG) @(FLIMSK eOR+FLGSPC(ASPREG)) GIRNSRT 
2726 FLGSPCLASPREGIEFL4UMSK 2ORe FLGSPC(ASPREG) 
273¢ LNKSPC(ASPREG) @LNKSPC(THIS) GIRNSRT 
27460 UNKSPC(THIS) #ASPREG GIRNSRT 
2750 IF (NVAL+EQe1)GO TO 613 GIRNSRT 
_276¢ ¢ ae oe ee = GIRNSRT 
2778 c INSERT ADDITIONAL VALUES GIRNSRT 
278¢ LSTASP*NODSPC(REGASP) GIRNSRT 
279° OLDLOC #ASPREG GIRNSRT 
280¢ HEAD #ASPREG = GIRNSRT 
281¢ IN=0 GIRNSKRT 
ey | tr Co a a Y| > - F = = JG ERNSRT 
2830 613 IF(REGASP.LEQLLSTSPCIREGASP}} GO TO 909 1203302 
2846 IVAL#IABS(IVALS(1)) 1z2u1207 
2856 RETURN GIRNSRT 
286¢ ¢ 1204142 
287° c DESTRUCTIVE INSERTION 1Z04142 
Ber tk a es ei = —= - 1Z04142 
289¢ 350 IADDI#IA0D 1Z04142 
290° INDEX#Q TZO4142 


78 


2916 CALL LVF IND( INDEX, {NOEX,INOEX, INDEX) 1205177 


2920 FLGSPC( LADD SFLGSPC( LADD) eOReFL4MSK 3 COMPAND | 
2930 IFC IVAL+EQ.=-1) GO TO 90 1204142 
2948 IF(LSTHEO) 354,90,356 2 1204142 
29S5e 354 LSTSPC(IADD) SIVALS(1) 1204142 
296¢ GO TO 365 1204142 
2978 356 NODSPCI(IADD)sIVALS(1) 1Z04142 
2988 365 FLGSPC(IADD wFLGSPCLIADD) .AND.NFLGO? = 1204142 | 
2998 FLGSPC(IADD) @FLGSPC( LADD) -ORSITYP( I) 1204142 
3008 GO TO 360 1204142 
301e¢ 90 IF (IPOSI91,99,92 1204142 
3020 9t  I1POSmIPOSe! 1206287 
3030 GO TO 93 1206287 
3040 92 1POSmIPOSa4 2 1206287 
30Se 93  LAOD*IADDI 1206287 
3068 IF (1POS.EQ.0) GO TO 125 1206287 
307¢ INDEX#0 1204142 
3080 CALL LYFIND(INDEX,INDEX,INOEX,INDEX) 1205177 
3090 IFC IVAL¢EQ.=<1) GO TO 99 1Z04142 
3108 If41POS .LT. 0) GO To 370 
3ile TADD#1A00) 1204142 
Ai2e Go TO 125 1204142 
3136 370 NEWLOC*®REGASP 1Z04142 
Aide IF(LSTHEO) 325,99,375 1204142 
31Se c UPDATE AVAILABLE SPACE 1204142 
—31se ___375 ISUBSNODSPC(REGASP) — === = — — = a : 
317¢ LSTSPC(1SUB) #LSTSPC(REGASP) 
3188 ISUBSLSTSPC(REGASP) 
3198 NODSPC(ISUB) =NODSPC(REGASP) 
3208 REGASP*LSTSPC(REGASP) TZO4L42 
321° GO TO 377 1204142 
—$22e——__ — — 4204142 
3236 c NONDESTRUCTIVE INSERTION 1Z04142 
3240 iS : 1204142 
3256 300 I[ADDI®IA0D 1Z04142 
3260 NEWLOCSREGASP — 1Z045142 
3278 INDEX"O 1204142 
3288 CALL LVFIND(INDEX,INDOEX,INDEX, INDEX) —$205177— 
3298 FLGSPC(TADD) sFLGSPC(IADD) .OReFL4YMSK COMPAND 
330¢ IF (IVALsEQ.-1) GO TO 90 —: = 1Z04142 
331e IFCLSTHED) 344,90,346 1204142 
3320 344 LFLIPOS eGT.s O) GO TO 325 = % : 
33360 TADO#1A001 1204142 
Aide GO 10 125 1704142 
3356 c CREATE MULTIVALUE LIST 1Z04142 
aise 325 ISUB*NODSPC(REGASP) = : : 
3376 LSTSPC(ISUB) SLSTSPC(REGASP) 
aise ss ASUB@LSTSPC(REGASP) as a 
3398 NODSPC(1SUB) =NODSPC(REGASP) 
a4o¢ _REGASPSiSTSPC(REGASP) 1zO04142_— 
341e IF (REGASP,EQsLSTSPC(REGASP)) GO TO 909 1Z04142 
3420 __NMLOCZ2*REGASP i at = 1205177 
3430 C UPDATE AVAILABLE SPACE 1Z04142 
a44e I1SUB*NODSPC(REGASP) - 
34S5e¢ LSTSPC(ISUB) =LSTSPC(REGASP) 
3460 SUB aL STSPC(REGASP) - 
3476 NODSPC(1SUB) *NODSPC(REGASP) 
3480 = REGASPaLSTSPC(REGASP) = SS 5 + 1Z04142 


79 


3496 NOOSPCINEWLOC)=IVALS(1) 1204172 
| 3500 LSTSPC(NEWLOC) =NMLOC2 ee : 1205177 
| 351e LNKSPC(NEWLOC) =NALOC2 1Z05177 
352e FLGSPC(NEMLOC) SFLGTMPeORSFLZMSK 1Z0S4577 
3530 NODSPC(NMLOC2)=LSTSPC(IADD) 1Z0S177 
3S4%e LSTSPCINMLOC2Z2) 81 A00 1205177 
35Se LNKSPCI(N®LOC2) ®NEAWLOC 1205177 
356e _KLGTEP*SFLGSPC(LAOD) eAND oF LGO7 ee ee 1205177 
357e¢ FLGSPC(INWLOCZ) #(FLIMSK eOR.FLZMSK) -ORCKLGTEP 1Z05177 
39660 LSTSPC(TADD) #NEMLOC 1204172 
3S59e FLGSPC(ITADD) = (FLGSPC(IADD) eOReFLOMSK) eOReFLZNSK 1Z04%172 
3eQ¢ 320 IF (REGASP.EQsLSTSPC(REGASP)) GO TO 909 1204142 
3éle 360 IVAL#IABS(IVALS(1)) 1241217 
3620 RETURN ee a 1204142 
363¢ Ca UPDATE AVAILABLE SPACE 1Z04142 
3aate 346 ISUBSNODSPC{(REGASP) 
36S¢ LSTSPC(ISUB) SLSTSPC(REGASP) 
3468 ISUBSLSTSPCIREGASP) 
367¢ NOOSPC(ISUB) #NODSPCI(REGASP) 
3688 REGASPaLSTSPCLREGASP} — a 1204142 
369e ELF CIPFOS «ut. OF) GO To 397 
370¢ 377 ISTLOC*®LNKSPC(1A0D) 1Z04142 
f 371¢ NOOSPC(NEWLOC)@IVALS(1) 1204142 
372¢ LSTSPC(NEWLOC)#I1A00 1204142 
373¢ LNKSPC(NEWLOC)#ISTLOC 1204142 
374¢ FLGSPC{({NEMLOC) =FLGIMPsORsFL2MSK 1204142 
375e ISUB*LSTSPC(ISTLOC) 
376¢ TLOG#FLGSPC(ISUB) «ANDa FLOMSK 
377¢ IF(ILOG -EQe OP GO TO 321 
3780 ISUB*LSTSPC(ISTLOC) 
3798 LSTSPC(1SUB) =NEWLOC 
ae |): ee em “(a se 2 2 a = 1204142 
3816 32) LS*SPCCISTLOC) #NEWLOC 1Z04142 
382¢ 322 LNKSPC(IADD) =NEWLOC 1204142 
3830 GO TO 320 1204142 
384° 347 NODSPC(NEWLOC)#=IVALS(1) 1204142 
3850 LSTSPC(NEWLOC) SLSTSPC(1ADD) 1204142 
ARE: LNKSPC(NE wi OCI sta0D - —— = — = 1204142 
387¢ FLGSPC(NEWLOC) S@FLGTMPeORSFL2ZNSK 1Z04142 
3a6¢ ISUB*LSTSPC(IADD) 
389¢ TLOG#FLGSPC(ISUB) «AND. FLOMSK 
3900 IFC(ILOG eEQs O) GO TO 323 
391¢ KZVAL®LSTSPC(ITADD) 1Z04142 
Sex 6 7. ____ISUB*LSTSPC(KZVAL) = aa aS. —_ 
393¢ LNKSPC(ISUB) #NEWLOC 
3940 GQ TO 324 1Z04142 
395¢ 323 ISUBSLSTSPC(IADD) 
39768 UNKSPC(ISUB) =NEWLOC 
3978 324 LSTSPC(IADD) =NEWLOC 1Z04142 
a ____ GO TO 320 : ee = = 1Z04142 
399¢ 98 1VAL#=-3 12062867 
400° PRINT 20001 1203302 
4Ole 20001 FORMAT(IX,78H ERRORese THERE IS NO ADDITIONAL SPACE FOR THE GRAPH, RR 
402e @eTHE PROGRAM IS TERMINATED) RRI 
4036 sToP GIRNSRT 
ee . a are a 1206287 _ 
40Se a FORMAT(6H ONLY ,14,28H VALUE(S) HAVE BEEN INSERTED) GIRNSRT 
4068 22 — FORMAT(IX,15,1H(4154354) USED LAST CELL OF AVAILABLE SPACE) GIRNSRT 
4O07e RETURN GIRNSRT 
_40Be 909 PRINT 22,1FUNC,IARG Boot — aoe ee = 1203302 
409¢ Cc THIS INSERTION HAS FILLED GIRS MEMORY = CALL A USER SUPPLIED 1Z1t137 
4100 c PROGRAM = LVEXIT. 1211137 
4iie IVAL#-1 TZit137 
412¢ RETURN 1Z0B121 
4i3e END GIRNSRT 


0 a ee ee ee See 


le SUBROUTINE LVSETP 1205177 


2e INTEGER FLGSPC,»FLAGSP,REGASP sBINFIL ,FLOMSK sFLIMSK »FLZMSK »FLSMSK, 1205177 
3e * FLIOMSKy»FL4MSK»FLG67,SEQSPC 1205177 
4e COMMON/LVFLAG/FLOMSK,FLIMSK FL 2MSK »FL3MSK ,FLYMSK pFLSMSK »FLG67 1205177 
Se COMMON/LVVTRS/BINFIL »KOMPAN,NODESP(])/LVVTRE&/LISTSP(1) 1Z05177 
be + /LVVTRI/LINKSP(L)/LVVTRB/FLAGSP(L) 1205177 
a Ce COMMON /LVTABL/ MAPSZE,MAP(L) /LEVVSEQ/ ISEWSZ,SEQSPC( I) IT 
Be COMMON/LVVTRI/MEMSZE ,REGASP ,NODSPC( 1) /LVVTR2Z/LSTSPC( ls GIRSETP 
ve eLVVTRI/LNKSPC( LISLVVTRY/SFLGSPC( L} GIRSETP 
10e COMMON/LVRAND/KPRIME ,KSEED,NROW,KONODE ,KOROM,KTEMP 
lie DATA FLOMSK/128/ sFLIMSK/64/ sFLZMSK/32/ sFLOMSK/4/ sFLGO7/3/ 4 RRI 
ize @FL3MSK/16/,FL4MSK/B/ RR1 
eeepyes = RS RECERE RINE Ae ee ee ee uf = = 
14e NROW=KSEED 
ise KTEMP#KSEED<KPRIME 
160 KONODE #KPRIME 
eee 9s REGASP#1 a SE oe ee — = GERSETP 
186 DO 10 1=2,MEMSZE GIRSETP 
19¢ LNKSPC(1)s0 GIRSETP 
206 FLGSPC(1) #0 GIRSETP 
21e NOOSPC(I)#I-1 GIRSETP 
22e 10 LSTSPC(I-t)e! GIRSETP 
eee FLGSPC(1)20 = ee ae ee EER SET 
240 LNKSPC(1)#0 GIRSETP 
250 NOOSPC(1) @MEMSZE GIRSETP 
260 LSTSPC(MEMSZE) #1 GIRSETP 
278 RETURN GIRSETP 
2860 END GIRSETP 


8] 


oalieeianaieetlidetad nee ee ese = - - <a cenneteeme ca TE 


SUBROUTINE MOOIO( MODE) 
OIMFNSION IBUF(80),IEND(3) 
IF(MONDE «NE. 0) GO TO 5 
WRITE (13,1) 
1 FORMAT(SX,16H OUTPUT DEVICE Xx) 
WRITE (14,2) 
2 FORMAT(SX,16H OUTPUT DEVICE YD 
WRITE (15,3) 
3 FORMATISX,16H OUTPUT DEVICE 72) 
WRITE (656) 
6 FORMAT(1H1552X,27H RESULTS OF ROLL CALL CHECK) 
5 00 10 I=10,12 
ENOFILE I 
REWIND I ; 
TENT (1-9) =9 
READ (Iy7,END=8) ICHAR 
7 FORMAT(AL) 
GO TO 10 
68 IENN(I-9)=1 
10 CONTINUE 
IEQF=3 
00 15 I=1,3 
IF(IENOC(I) eNEe 0) GO TO 15 
IFC(TEOF .EQ- 1) GO TO &:? 
IE0F=1 
IOUT=9¢I 
15 CONTINUE 
IF(IEOF .EQ. 9) GO TO 50 
REWINO IOUT 
IOUT2=IOUT+3 
WRITE(IOUT2,2C) MCDF 
20 FORMAT(//20K412H MODE INOFX=,13) 
OO 3C [=1,100 
REAODCIOUT,25,END=60) (IBUF ISI, J= 1580) 
25 FORMAT(B89A1) 
30 WRITEC(ITOUT2,25) (IBUF (J), J=1,80) 
4O WRITE (6,45) MODE 
45 FORMAT(//21K 4864 **ERROP IN ROLL CALL CHECK = MOR© THAN 1 OUTPUT D 
SEVICE WAS WRITTEN ON FOR MODE INDEX ,13,2H**) 
GO TO 6¢ 
£0 WRITE(6,55) MODE 
55 FORMAT(//25%479H **ERPOR IN ROLL CALL CHECK = NO OUTPUT DEVICES WE 
*RE WRITTEN ON FOR MODE INOEX ,I3y 2H**) 
60 ENOFILE 10 


ENOFILE 11 
ENDFILE 12 
REWIND 10 
REWIND 11 
REWIND 12 
RETUPN 

ENO 


le FUNCTION NEXTCUIA) NEXT é 
2e COMMON A11326)4D1500) ,1DTBL(B,500) ,INITIO(3),LASTIO(3),ISRON( 3), RICH 2 
36 © JPTRIN eM, ITYPyLSTART pNZ,1FNCNM,LOGIONATIO,IOTYPsNID,LOC, 
e- 2 LIYP,ITYP,IBLKDT,MODE,IERR,IDES RICK 3 
Se INTEGER A,BLANK NEAT % 
be DATA BLANK/IH / NEAT 5 
7e IF CLA eGT. N) GO TO 15 NEKT 6 
Be 00 10 I#IlA,N NEAT 7 
Ge TF (ACT) «£@. BLANK) GO [0 10 NEAT 8 
joe NEXTeACT) <3 NEAT g 
lie JPTRelel NEXT 10 
12e RETURN NEXT 11 
130 10 CONTINUE NEXT 12 | 
14e NEXT*BLANK 
ise JPTReNel NEXT 14 | 
tee RETURN NEXT US 
17° 1S NEXT eBLANK 
186 JPTReIAel 
19¢ RETURN 
206 ENO NEXT 16 
ist FUNCTION NXTBLK(ILOC,IEND) - ; NXTBLK 2 
2° COMMON/BASBLK/I BLOCK (2500) »NBLOCK ,NByNBRNCH 
3e COMMON/LABELS/STATRA(2,200) ,NLABEL NXTBLK 4 
4e INTEGER STATRA,BITGET NXTBLK S 
Se IweIBLOCK(ILOC) NXTBLK 6 
6e IF(1 «€Q6 999) GO TO 10 NXTBLK 7 
ees LF L1 .EQe 998) GO TO S ——= : NXTBLK & 
Be NXTBLKSBITGET(STATRA(2,1)436518) NXTBLK 9 
oe RETURN NXTBLKIO 
10° S NXTBLK=IEND41 NXTBLKIL 
Lie IF(NXTBLK .GTe NBLOCK) CALL ERROR(38,KDM14K0M2) 
12e RETURN NXTBLKI3 
= 13 10 NXTBLK=s0 — - —_—__NETALEES 
l4e RETURN NXTBLKIS 
ise END NXTBLK16 


le SUBROUTINE PARSE 


2e COMMON/LVARGS/LVFUNC,LYVARG,LVVAD,LVVPOS,LYVIYP,LYVAL, 
3e *LVHEAD ,LVVNVL ,LVDEST,LVVALS(10) ,LVTYPE(10) ,LVSKIP 
He ___________COMMON/LVTABL/LVISIZ LVMARL  __ 4 VL VVSEQ/LVSIZE ,L¥SOSPY 13_—_ 
Se COMMON/NEEDS/STIJ,JSTACK »R»JAS es Je JLAST,RTEMP,STACK (400,54) 
4a COMMON/FUNC/NARY (55147) ,MARGS»IARGS(SO),FNCLOC(S) »NFUNC 
7e COMMON /STRING/ NTYPE,NSTR,STR 
Be COMMON /GIRL/NTERMS PLUS MINUS sSLASH LPAR,RPAR COMMA STAR EXP ALT, 
ge #LE,GT,GE,EQ,NE,OR,AND,NOT,EQUALS,OPRAND 
——_-40e ________ COMMON /HLY WOOL ACTION, FUNCL FUNC Z FUNCI LEFT RIGHT SIRING MALY 
lhe COMMON /NEED/ START,ASSOC,LEVEL,STOP 
ize COMMON /TYP/ NARRAY,TYPEL,TYPE2 ,ERRELG 
ize COMMON/NOPAR/NOPAR,NDEP »NDEPTH NFLAG 
b4e COMMON /NTIMES/ NTIMES,I 
1Se COMMON/VAR/VFOR( 15) ,NUMCHR »NCHRP,CHAR,NOICT 
—__16a__________INTEGER TyPE1,TYPE2,STARI,TYPi3) — = ———EE 
i7e LOGICAL ERRFLG,FAIL 
18a INTEGER STR11),STEMP,ST,DICT(19)} 
19e EQUIVALENCE (DICT(1),PLUS) 
200 INTEGER PLUS,MINUS,SLASH,LPAR,RPAR ,COMMA,STAR,EXP,LT,LE,GI,GE,EQ, 
21e +NE,OR,AND,NOT,EQUALS,OPRAND,ASSOC ,LEVEL,STOP ,ACTION,HOL ,LEFT RIGHT 
229 = +,STRING,FUNCI,FUNC2,FUNCA 
236e OATA NTIMES /0/ 
24e IF(NTIMES .GTa2 O} GO TO 3 
2S5e NTIMES®) 
24¢e £ EXECUTE sores 
27°¢ GO TO 25000 
288 2500) CONTINUE = 
29¢ CALL PHONEY 
sak 1 eS CALL LYFECH(19) a a = = SS 
3le READCIPIPLUS MINUS, SLASH» LPARsRPAR,COMMA,STAR,EXP,LT LE ,GT,GE,EQ,y 
320 se NE, OR, AND, NOT, FQUALS,OPRAND, ASSOC LEVEL ,STOP, ACTION, HOL LEFT RIGHT 
33¢ @eSTRINGsFUNCE »FUNCZ,FUNCI,NTERMS,(TYP( IT) siete. 3d) 
OS ONS TR CE. 0) RETO 
35e ERRFLG@eFALSEo 
=i START MIYP(NTYPED = = - Set ete 
376 NARGS#®O 
SS = MAXJ80 faa ee 
390 NOPAR#O 
peel. |) | eeweereeeres A 7 A 
41e TYPE2«<1 
a aze. NARRAY#=1 —— ita os a a Se 
84 


S3e NOEPTHsO 
ase NOEP#Q SSS SS SSS SS ee 
4Se NFLAG#O 
460 00 20 I=1,50 
476 20 IARGS(1)*0 
480 OO 22 1=1,85 
49e@ 22 NARY(1)#O 
—_— $0 0 IO eS USER 2 —— = 
Sie Cc STRING(*HOL.1 ONTEMP//4,HOL & QNTEMP) 
52e Ly) AAB = STRING : 
S3e Ceeee LVI AAB * HOL 
S4e LYYPOS © I 
Sse LvvTYe « 3 
SS LYFUNCS ee ROE es = 
S7e LVVARG® LVI AAB 
see CALL LYFIND(LY2 AsL V2 Balv2 Cab V2 o) 
sve tvi AAC # LVI AAB 
40¢ IF (LYVALsNE«mh) L¥d AAC = LYVAL 
ele Ceeee LVI AAC -) NTEMP 
= 62e ee he ee = = 
630 LVVTR © LVVAL 
o4e LYVAL = -100 
6S5e IF (LVVTR.NEs=1) GO To 4 
eee CALL LYGRN(LYI AAG) 
67e Ceeee LVI AAB HOL Lvi AAC 
ae! LYOEST®= oO Ss a E 
690 LVTYPE(1) = O 
70¢ LYVALS(1) = LVI AAC 
Tie LVVNVL = 1 
72° LYFUNC = HOL = 3 
730 LVVARGSLVI AAB 
249 CALL LYNSRT = 
750 IF(LVVAL +L T2O) CALL LVEXIT(LVVAL) 
Toe IF(LVYVALeLTeO) RETURN 
77° Ceeee ivi AAC e NTEMP 
78¢ NTEMP = LY AAC 
79° 4 CONTINUE 
AFLERRFLG) GO TO 25 
ST#IABS(STR(I)?) 
IF(STR(T) «lL Te 0) GO TO 6 
NTEMP HOL @eSTOO 
NTEMP HOL ee 
LVOEST= oO 
uvi AAB = ST aca has 
LVTYPE(I) © 3 
LVVALS(1) = LVI AaB —S 
LVDEST= 0 
LVVNVL © 1 : Behe 
LVFUNC = HOL 
LVVARG® NTEMP . 
CALL LYNSRT 
IF (LVVALeLT6QO? CALL LVEXIT(LVVAL) = 
IF(LVVAL«LT.6O) RETURN 
TFCERRFLG) GO TO 25 £ — 
STRING STRING OPRAND//10 
a [ae Oe ee eee 
990 LVDEST® oO 
100¢ LYTYPE(I) = O = = 


Ole LVVALS(1) « OPRAND 
Sas y ye LVYNVL © 4 oh . A 
103¢ LVFUNC ® STRING 
104 LYVARG= STRING 
10Se CALL LYNSRT 
10608 LFCLVVALSLT.O) CALL CVEXITIL VAL) 
107¢ IF(LVVAL6LT.O) RETURN 
—_— {ose LTR «@ L¥VAL ee ee 
109¢ LVVAL # -100 
1100 IF (LWWTRNE.L) GO TO 19 
lille IF(ERRFLG) GO TO 25 
1120 & STEMPaDICT(ST) 
lige c STRING STRING S@STEMPOS 
EN Cases STRING STRING ee A ee 
11Se LVDEST= 0 
1160 ivi AAC = STEMP 
1i7e L¥EVPECRY w 4 
1180 LYVALS(1) = L¥E AAC 
1198 LVDEST® oO 
a ae 4 — _ — — 
12le LVFUNC ® STRING 
122¢ LYVARGs STRING 
1236 CALL LVNSRT 
124¢ IFCLYVALeLT.O) CALL LVEXIT(LYVAL?) 
125¢ TF(LVVALe¢LT6O) RETURN 
ee Sy) eee) ald IS See es ee | = 
127¢ 10 CONTINUE 
1280 iva AAD = OPRAND 
129¢ LVDEST= oO 
4300 iva AAE 2 O 
i3te LvTYPE(i) = f 
—— 2 LAL SE ee Ae. = 
1336 LVOEST= oO 
34a LVVNVYL 4 
135e LVFUNC ® FUNC2 
4368 LYVARGaLV) AAO 
137¢ CALL LYNSRT 
—_j36e__ LEALVVALsLT.O) CALL LVEXITILVVAL) 
1396 IF(LVVAL +L TO) RETURN 
1400 LYDESTe oO 
i4.e uvi AAF # O 
1420 LYTYPE(1) w 1 
143¢ LVVALS(1) = LVI AAF 
ae i ee ee 
14Se LVVNVL @ 1 
144¢ LYFUNC # FUNC3 
147e LVVARG@LVI AAD 
i48e CALL LYNSRI 
1498 TFC LVVAL +L T6O) CALL LVEXIT(LVVAL) 
_i150¢ LF ULVVALeL TsO) RETURN 
iste LVOEST= oO 
1s2e LYI AAG = 0 
153¢ LVTYPE(H) = 1 
1S4e LYVALS(1) # L¥L AAG 
15Se LVDEST® oO 
1560 eee Ae ee 
157¢ LVFUNC # LEVEL 
158¢ LYVARGeLYL aad 
8&6 


159e CALL LVNSRT 


Lede IF(LVVAL +L ToQ) CALL LWVEXITILVVAL) —— = 
béle IF(LVVALeLT~«O) RETURN 
1e2¢ CALL RECOG(FAIL) 
lé3e IF(FAIL) GO TO 40 
le4e 25 CONTINVE 
16Se IF(ERRFLG) PRINT 100 
—lsse OO FORMAT(s) : Ss = —S 
167e CALL PRNTS 
14fe NCHAR®sO 
169e 30 NCHARsNCHARSI 
17Q¢ c STRING*HOL sNCHAR/I35(-LEFT s-RIGHTs-HOL4-STRING/30/30) 
i71e Coeece STRING . HOL 
—— eee AYVYPOS ss BEHAR z 
173¢ LVVTYP @ = 
174¢@ LYFUNC® HOL 
175e LVVARGSs STRING 
1740 CALL LYFINDILW2 £.LY2 F,lv2 G,L¥2 A) 
1776 Lvi AAD ® STRING 
fos = LF ALVVAL.NEsot}) Lvs AAD m LVWAL — es 
1798 LVVTR = LVVAL 
180e L¥vVAL m= -j390 
181e IF (LVVTR.EQs=1) GO TO 35 
1820 Lyi AAH @ LVI AAD 
163¢ Ceeee LVI AAE - LEFT 
__1Ase LVVADm-] 
185¢ LVVTYP#®<1 
1B4e LYVPOS®1 
1876 LVFUNC® LEFT 
18Be LYVARGeLVY AAH 
189¢ CALL LYDLET 
= 9S e-— ws a or eS es) ee a ——Ee 
191e Coeee LVI AAE - RIGHT 
192¢ LVVADs-1 
1930 LVVTYP@-1 
1?4e LYVPOS#®1 
1950 LVFUNC® RIGHT 
= LYVARGsLY}) _AAH - — ss = : — 
197¢ CALL LVOLET 
19Be LVL AAH © LVL AAO 
199¢ Coeee LVI AAE - HOL 
200¢ LYVADe-1 
201¢ LYVTYP®<-1 
ail PP SSS. = ss 
2036 LVFUNC® HOL 
204¢ LYVARG®LY¥E AAH 
20Se CALL LVOLET 
206¢ Lv AAH = LYI AAO 
207¢ Ceeee LVI RAE - STRING 
i) __LYVADe=] Se eee ae 
2096 LVVTYPeet 
210¢ LVVPOSe} 
2t1e LVFUNC® STRING 
Z12¢ LVVARGeLV) AAH 
2136 CALL LVOLET 
or) eS a ee aa. en —— san 
21Se LVVAL # -100 


Zoe TF ULVVTREQe=1) GO TO 30 


217¢ IF (LYVTR.NEs-1) GO TO 30 
2ise 35 CONTINUE — 
2198 C STRING-STRING 
220° Ceeee STRING - SIRING 
2216 LV¥VADs-1 
222¢ LyvIyPae-l 
2236 LVvPOSel 
2258 LVFUNCs STRING ~ ———— 
225¢ LVVARGs STRING 
2268 CALL LVOLET 
227¢ c OPRAND(=OPRANDy=STRING,“ACTION,=FUNCI) 
2288 L¥t AAD «= OPRAND 
2298 Ceese LVI AAD - OPRAND 
2300 _ LW¥¥AD m=} ——= = 
2316 LVVTYPS-1 
232¢e L¥YvPOSel 
233¢ LVFUNC® OPRAND 
2348 LYVARGSLVY AAD 
235¢ CALL LVOLET 
2360 _Camea {vj AAD -- _-~ STRING 
2376 LYVAO8<i 
2380 LVVTYPSel 
2398 Lv¥vPOSel 
2408 LVFUNCe STRING 
241e LYVARG#LVI AAD 
2260 Eee EVOL ET 
2436 Ceeee LVI AAO o ACTION 
2440 LYVADas] —- 
245e LVVTYPe-1 
246¢@ LYvVPOSel 
247¢ LYFUNC® ACTION 
2488 _ —_LWVVARGaLV) aad ——— ss 
249e@ CALL LVOLET 
2s0¢ Ceeee LVI AAO - fai; it 
2Sle LVVADe-l 
252¢ LYYTYPe-l - = 
2S53¢ LvyvPose®l 
2549 = ALVFUNC® — Ene t = 
25S¢ LVVARG#LVI AAO 
254¢ CALL LYOLET 
2578 LVVAOs-1 
2586 LvvTYP*=-i — 
2590 Lv¥vPOS#! 

=) a ES: EUNC2 
26le LYVARGSLYV] AAD 
2628 CALL LYOLET = ——— 
Z63¢ LVVADe-I 
2640 L¥WTYPent = = 
26Se Lv¥vPOSel 
————— VE UNE SEU S <a 
267¢ LVVARG#®LVI Aad 
248¢ CALL LYOLET ——— 
269¢ LVVADe-1 
2706 LYVYTYPe-t = = 
271¢ LvvPOSs*I 

poeeer ir A -LYEUNCS LEVEL 
2736 LVVARGPLVI AAD 
274 CALL LYDOLET 


eee ~ WSTRENCHRP am 7 as 


‘ 2760 RETURN = : 
277¢ 40 PRINT 300,MAKJ 
270 __— 300 FORMAT(IX, 34H PARSE FAILED AFTER CHARACTER NOe 513) 
2798 ERRFLG2.TRUE. 
2ape eee Se | a = Se oe eee = 
2816 ¢ COMPLETE 
2020 735000 CONTINUE S< =o o> 8 ee ee ee ee ee eee 
ie 2630 Lv2As0 
ee Ee a ee ee oe 
Bea 285e Lv2cso 
- 1.1) L¥20eQ == = os 
& 2870 LV2E*0 
; aS TT Ce eT 
2890 LvV26"0 
29pe. =  Byenegi = : - = = 2 
2910 60 TO 25001 
2920 2 ss ee ee oe 
’ Te SUBROUTINE PHONEY - a 
be ge INTEGER FLGSPC,FiaGSPp = - ie 
Bed Se COMMON/LVVTRI/LVVSZE,LVVGSP,NOOSPC (1000) /LVVTR2/LSTSPC( 1000 
3 Se COMMON/LVVTRS/LVFILE,LVCMPR,NODESP( i) 
e * ee 2 eS ee ae ——_ 
RE Te +/LVVTRB/FLAGSP( a) 
Re Be = COMMON/LYRAND/LNKPRM,LYKS,LYKAGLYKDYsLVKDAGLYTEMP = 
9e COMMON/LVARGS/LVFUNC ,LVVARGyLYVAD yLVVPOSsLVVTYP,LVVAL 
: __19e  #h HEAD sLVYNVL SLYDEST LVVALS(10) LVTYPECIO) sLVSKIP : 
il lie COMMON/LYVTABL/LVTSIZ,LVMAP( 1) /LVVSEQ/LVSIZE,LVSQSP( 
$76 6 ec e 
i3e LVVSZE*1000 
See) a i _ ry es 
—“TSe LVCKPRe 0 = —— : 
2 SSS —e——E— Eee 
q i7e LVSKIPSsi) 
ae! Oo a —— = 
: 19° CALL LYSETP 
Se a RETURN = —S— ae 


zie END 


— 
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UNCLASSIFIED DTNSRDC-77-0075-V0L=3 NL 


ge | 
8 


eepetctatale at 


il lO mm C 


I3.2 
we ee 
ise — 


i = 
——— 


| We 
22 Ma Wes 


MICROCOPY RESOLUTION TEST CHART 
NATIONAL BUREAU OF STANDARDS -1963-; 


Te SUBROUTINE PRATS 


COMMON/LVARGS/LVFUNC LVVARG LYVAD LVVPOS »LVVIYP.LVVALy 
@LVHEAD »LVVNVL »LVOEST .LVVALS(10) .LVTYPE( IO) .LVSKIP 
_COMMON/LVTABL/LYTSIZ,LVMAP( = LD/LVVSEQ/LVSIZE,LVSQSP( 8) 

COMMON /HL/ HOL ACTION + FUNCI »FUNC2,FUNCS LEFT RIGHT STRING 

COMMON /VAR/ VFOR,NCHAR,NCHARP,CHAR,NOICT s 

COMMON /TYP/ NARRAY,TYPEL,TYPE2,ERRFLG 


COMMON /GIRL/ NNN( EE) ,OPRAND 


ERRFLG ——— 
INTEGER VFOR(IS) CHAR, »STRING MOL RIGHT, STRG I), OPRAND 


25000 


00 S Ietets 
_§ VFOR(L)eO 
NINTe®E 
eo ee 
2te 00 10 Iet,NSTR 
220 _¢ _STRING(+HOLal QGNODE STRING I GNLSOPRAND/ 16) 
vi AAD «= STRING 
Cooce tVI ——————————— 
LVVPOS = I 
pay | eee _LY¥TYP « i 
LVFUNCe HOL 
LYWARG® Lyd AAD —_ a 
CALL LVFINDI(LV2 AslLv2 B8,Lv2 


TFULVVAL sNEe 8) LVDAATOELVVAL 
See ee en ee ee 
WODE®LVIAAI 
Coece Vi AAD a eee | 
LvvPos « U 
LVVIVP «© 3 ” 
LVFUNCS STRING 


s 
CALL LVFINDILV2 E,lv2 FylLv2 Gok V2 
—9Qe sss VE AAT PLY AAD 
ale TFULVVAL oNEo o8) LVIDAATOLVVAL 
aze GOCee CVE AAR Cz NI 
430 NISLVIAATL 
4%e Cocce 4) es QPRAND — 2 ee IS 
LVVAL © -100 
en | ae ee, fl | re OPRAND) LYVAL © <1 
LVVTR @ LVVAL 
L¥VAL © 400 pee 
IF (LVVTR.EQe-1) GO TO le 
N s > 
16 Je0 
20 Jevel — 
c NODE*LEFT.J/30 (*HOLed GCHAR, eHOL 2 @NDICT) 
Coecce NODE 
LvVvPOS « 


LVFUNC® 
LYVARG® 


en eT LE TT IS 


~ $9e CALL LVFINDILV2 T,lv2 Jotv2  Kytv2 Ud. 
= 6Ge EEK AD _NOOE 
éie IF (LVVAL.NEool) LVI AAD ® LVVAL 
EE AYVTR = Ly¥VAL = ES EE EE ee 
é3e LVvVAL # -100 
__ ae rE, __IF_ (LY¥TR,EQ.21) GO TO Ce ee 
6Se LVIAATSLVEAAD 
—_66a__Caeses LV¥j _ AAE _ 60 _—$ es 
670 LvvPOoS # i] 
—o6e AV¥TYP «2 3 - ———EEESS eee 
69e LVFUNC® HOL 
708- LYVARGBLYVIAAL : - $$$ $$ $___—_ _ 
The CALL LVFINDILV2 m,LV2 N,LV2 O,Lv2 P) 
—_22e__LVJAAJaLViAAL — 
73e IFCLVVAL oNEo =1) LVPAAJSLVVAL 
__14@ Ceeee LV} AAF —-______— CHAR. = (cere 
7Se CHAR®LVIAAJ 
262 __LVJAAJ®LV AAD ———- - — —_ 
77° Cocece LVI AAF ° HOL 
—28e_____iv¥P0S a — a 
79¢ LVVTYP = 3 
SS LVEUNCe — HOL - — — ————— = 
Ble LVVARG®LVIAAJ 
__@2@ CALL LYFINDILY¥2_ O,L¥2._ (Os eS OS eee 
B30 LVIAALTSLVIAAS 
_ Age CO AL CE eg) EVE AAT LAL 
6Se Ceecoe LVI AAE 8 NOICT 
__ 860  MDICT®LVSAAl J — — - = a —— 
67e CALL FORM 
ese. 60 70 29 ———— —— es ca _——— 
b9e 30 CONTINUE 
—__900 IF «MINT .6T. MINP) 6O 10 36 —  ———————————————————————————————— 
gle ¢c NE(*HOLe! BCHAR,*HOLe2 ONDICT) 
220 uv) aap 2 ee! ~ 
930 Coecoe LVI AAD ° HOL 
94S: —_____ EYES 8 _§—_—_—_ — _ = —§—=——— 
95e LvvTYe «= 3 
—— Oe 
970 LVVARGe LVI AAD 
280 CALL LVFINDiLY2 —UshW2 VY,Ly2_ SE 
990 LVEAAT@LVIAAD 
—_1o00e —_ __IFALVWAL ,NE, o3) LVLAAI@LYVAL __ — Sat 
tore euvi AAE 8 CHAR 
—3O2e Rm 
1036 Ceecee LVI AAD + HOL 
1040 Lv¥vPOS « 2- 
tose LVVTYP @ 3 
s - _ 
lo7e LVVARGe ivi Aad 
_ pee CALL LF INDOLE? ¥abv2 Zh? hp 
109e LVIAATeLVIAAD 
= iJ 
tite Ceoeee LVI AAE ) NOICT 
_1ize CIT el VAAL - 
tide CALL FORM 


_ii4ae TO 8 
11Se 35 NTMPENINT 


iise __¢ MODE *HOL QNDICT- — 
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ae 


ve ——— 


Nee AEM: Reet gt AA PY 1 oe 


ee 


ive Cease NODE + +. - 


Rise. LVVYTYP = 3 iat 
bi9e LVVPOS = 3} 
12Qe LVINOX = Q Ca SR Sed 5 a3 
i2le LVFUNC® HOL 
122e LVVARG# NODE SS ee z = 
1Z3¢ CALL LVFIND(LVINOX,LVINOX,LVINDX,LVINDX) 
i24e LY AAD = NOSE => 
12Se IF (LVVAL.NEemt) LVI AAD #® LVVAL 
i2oe Ceeee ivi AAD fa eee 2 3 ae er oe nee > 
127¢ NOICT » LVi AAD 
A2ge Y QPRAND*HOL SCHAR - a as * ae 
129¢ Coccee OPRAND - HOL 
1300 LYVTYP = 3 = 
l3ie LvvPOS = J 
A32e LWINOX = g SS a eee 
1336 LVFUNC® HOL 
—__134e = LYVARGs OPRAND < : a — = 
135° CALL LVFINDILVINOX,LVINDOX,LVINOX,LVINOX) 
137e LF CLVVAL NE SHE) CVE AAD ® LVVAL 
i380 Cacee LVI AAD — a CHAR a= a=: == 
139¢ CHAR =» LVI AAO 
i14Q0¢ CALL FORM pa ee ee ee ——— 
l4le 37 Jad 
_1.$20 _._____ 40) Jetef. aes = 
143¢ C NODE*RIGHTeJ/I0 (+HOLet GCHAR, *HOLe2 GNDICT) 
A44e_ Ceees NODE =. RIGHT eS oe 
14Se LvvPOS # J 
ae LY) Sey Nh S| ee Se ee = - 
147¢ LVFUNC® RIGHT 
ae) |) eee) eee! a 
149¢e CALL LVFINDILV2 2,LVv2 3,Lv2 4 .Lv2 Ss) 
___1506¢ : —____ LV) ___ BAD e _ __ NODE Basia = = a 
tSie IF ULVVAL.NESo}) LVI AAD # LVVAL 
hS2e Ee — = = 
1S3e LVVAL # -100 
Se) i ( eens fer ad ACS Oe) SS) a ee 
1sSe LVEAATSLVIAAD 
She  Coeee LV}  AAE — |: | ees — = a 
is7e LvvPOos = ! 
1SBe Serre Sil A 4 OR Deen Seen ee = —— 
1S9e LVFUNC® HOL 
a a a ee ee aE 
léle CALL LVFIND(LV2 6,Lv2 7Telv2 6,Lv2 9) 
A4ze ss AWK AASOL VAAL = 
té3e TFULVVAL .NEo <1) LVIAAJOLVVAL 
Ao4e ==, Ceeoe LVI AAF Ss Se CHAR — 
165e CHAR®LVIAAJ 
lobe LVJAAJ@LYLAAD 
1670 Ceeee LV AAF . MOL 
lobe LYVPOS = ps oe 
169¢ Lvvtve e« 3 
_170e LVFUNC® LC es 
t7he LVVARGOLVIAAS 
—Ii2e_ CL IDL 2 LV? CAML V2 CAC LV? 
1736 LVEAAT@LVIAAJ 
| __LFAULVVAL ,NEo ©1) LVLAATSLYVAL 
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NOICT 


—_te2e ._____ JEJERRELG) PRINT 100, (¥FORI TI, at,NC} - 


17Se Cocecee LVI AAE 
—i2oe DICT al VI AA 

177¢ CALL FORM 

17Be GO TO 40 

179e 10 CONTINUE 

1800 NCale(NCHaARPelI/8 

16le 100 FORMAT(IX,15A8) 

163¢ c COMPLETE 

se4e RETURN 

16Se 25000 CONTINUE 

41860 L¥2As0 

167e LvV26e0 
—_isaBe + AN 2C a 

1890 Lv20e0 

1900 LY¥2E#0 

19te LV2Fe0 

192e LV¥26e0 

1930¢ LV2H#O 
—+9me___________4M2}eQ-— 

19Se LvV2ue0 

4960 L¥2K20 

197e LvV2L*0 

i9Be L¥2ma20 

1996 LV2Ne0 


—290e——__________4¥2020— 


201¢ LV2Ps0 
2020 L¥2920 
203¢ Lv2R20 
— 2040 _ L¥2S20 
20Se LV2Ts0 
—206e_—____4¥2uUe9 — 
207¢ LvV2vs0 
—_.2080e AZ 
2090 LV2xe0 
2100 _ == Lv¥2Ye0 
2ite Lv2ze0 
—212e C2 —— 
213¢ Lv2ie0 
a). Se L¥229s0 
21Se Lv2390 
—__21he LY¥2490 
217¢ Lv25s0 


Lv2720 


—2209 .._____ _LY28e0 is 


2216 LV2920 
42229 __.___+_§_+- = =iLY2AAeQ on - ——— — 
2230¢ LV2ABe0 
—224e _iv2aceo 
2250 LV2A0e0 
2240 60 70 26001 =. . = 
22760 END 
te SUBROUTINE PROG PROG 


——Ae__@ JPIRsNsM,JTYPLSTART NZ, IFNCNMsLOGIONATID,JOTYP NID LOC, 22022 


4e 

a eee 
oe CALL STORE 

— § ee 
te Eno 


, . - were rege 
FAB ei OR, Harrie igh rete FING ee toe 


COMMON AL1326),01500),10TBL (8,500) pINITIOG3) »LASTIO(3),ISRCHI3), RICH 


2 LTYP,ITYP,1BLKOT MODE, TERR, IOES 


ee 


Le. 


RICH 

PROG 14 
—+ EROS. 

PROG 22 


al 


’ - - . 
6 Ah SELMAN Nth Lal AY or 


35 Bits 


34 Bits 


REAL FUNCTION Q1REAL(X) 
DATA R/O77777777777E/ 
Q1RE AL =AND(X Rd 

RETURN 

END 

DOUPLE PRECISION FUNCTION Q10PRE(X) 
DOUBLE PRECISION XoT 
OIMENSION W(2) 
EQUIVALENCE (T »W(1)) 
OATA R/OT777777777764 
T=x 

W(L)=AND(W(1)9R) 
W(2)=ANDCW(2) R) 
Q10PRE=T 

RETURN 

ENO 

COMPLEX FUNCTION Q1COMP(X) 
COMPLEX XoT 

DIMENSION W(2) 
EQUIVALENCE (T,W(1)) 
DATA R/O777777777776/ 
T=X 

W(LD=ANDOW(1)9R) 

W(2) =AND (W(205R) 
Q1COMP=T 

RETURN. 

ENO 


REAL FUNCTION Qi1REAL(X) 
BATA RSOTITTITTITITITGS 
Q1REAL=AND(XK,R) 

RETURN 

END 

DOUBLE PRECISION FUNCTION Q10PRE(Y 
OOUPLE PRECISION XT 
OIMENSION W(2) 
EQUIVALENCE (7 »WU19) 
DATA R/O777777777774/ 
T=Xx 

W(1)=AND (W010 Rd 
W(2)=AND(W02)9R) 
Q10FPRE=T 

RETURN 

ENO 

COMPLEX FUNCTION Q1COMP(X) 
COMPLEX XoT 

OIMENSION W(2) 
EQUIVALENCE (ToW(1)) 
DATA R/O7T777777777747 
T=x 

WCLI=AND CWHCL9 SRD 
W(2)=AND(W(2)9R)d 
QicomP=T 

RETURN 

ENO 
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REAL FUNCTION QiREAL(X) 
DATA R/O7T777777777707 
QLREAL=ANO(X,R) 

RETURN 

ENO 

DOUSLE PRECISION FUNCTION Q1DPR=(X) 
DOUBLE PRECISION X,T. 
OIMENSION wW(2) 
EQUIVALENCE (T »W(10) 
DATA R/O777777777770/ 
T=Xx 

W(1)=AND (W010 Rd 
W(2)2AND(W(2) Rd 
Q10PRE=T 

RETURN 

END 

COMPLEX FUNCTION QiCOMP(X) 
COMPLEX X,T 

OIMENSION WC2) 
EQUIVALENCE (T W(1)) 
DATA R/OTT77777777764 
T=x 

W(LD=ANDCWI194R) 
W(2)2AND CW 2),R) 

Q1C OmP=T 

RETURN 

ENO 
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REAL FUNCTION QiREAL(X) 
DATA R/0777777777 7667 
QLREAL=AND(XK,R) 

RETURN 

END 

QOUBLE PRECISION FUNCTION Q10PR:(X) 
OOUPLE PRECISION X,T 
OIMENSION W(2) 
EQUIVALENCE (T,W(1)) 
DATA R/07777777777607/ 
T=x 

W(1)2AND(W(1),R) 
W(2)=AND(W(2),R) 
GQLOPRE=T 

RETURN 

ENO 

COMPLEX FUNCTION QiCOMP(X) 
COMPLEX XoT 

OIMENSION W(2) 
EQUIVALENCE (T,W(1)) 
DATA R/O777777777760/ 
T=x 

WCL)=AND CWI1),RD 
W(2)=AND (W12),R) 

Q1C OmMP=T 

RETURN 

END 
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REAL FUNGTTON QiREAL(X) 
DATA R/OPTTT7T7777 7404 
Q1iRE AL=ANO(X,R) 

RETURN 

ENO 

OOUSLE PRECISION FUNCTION Q10PRE(X) 
DOUBLE PRECISION X,T 
OIMENSION W(2) 
EQUIVALENCE (T,W(1)) 
DATA R/O7TTTT77777740/4 
T=X 

W(1)=ANO(W(1),R) 
W(2)=AND (W(2),R) 
QLOPRE=T 

RETURN 

ENO 

COMPLEX FUNCTION Q1COMP(X) 
COMPLEX XoT 

OIMENSION W(2) 
EQUIVALENCE (T,W(19) 
OATA R/OTT7T7T77777 7467 
T=x 

W(1)=AND(W(1),4R) 
W(2)=AND(h(2),4R) 
Q1icompsT 

RETURN 

END 
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REAL FUNCTION QiREAL(X) 
DATA R/O777777777700/ 
Q1REAL=ANO(X,R) 

RETURN 

ENO 

DOUBLE PRECISION FUNCTION QiDPRE(X) 
DOUBLE PRECISION X,T 
DIMENSION W(2) 
EQUIVALENCE (T,W(10) 
OATA R/O777777777700/ 
T=X 

W(1)=AND (W(10,5R) 

W(2) =ANDCWO2)4R)d 
Q10PRE=T 

RETURN 

END 

COMPLEX FUNCTION QiCOMP(X) 
COMPLEX XoT 

OIMENSION W(2) 
EQUIVALENCE (T,W(1)) 
DATA R/SOTT7TIT7777 7004 
T=Xx 

W(1)=ANDCWO1),R) 

W(2) AND (W(2) Rd 
Qicomp=T 

RETURN 

ENO 
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~ Te SUBROUTINE REAL CK — Ac 


ae COMMON A(1326).0(500) ,IDTBL(8,500)  INITIO(3) LASTIDOIS)ISRCH(9), RICH 2 
3e @ JPTR NM, JTYP,LSTARY NZ, 1FNCNM,LOGIDNATIO, 1OTYP,NIO LOC, 
Se COMMON/LOGIC/LOG,LOGST REAL 4 
REAL § 
Te INTEGER A,DECPT,EEE PLUS,» MINUS, DEE ,ELOC REAL 6 
ae! + 2. REAL 7 
ve 10ES*0 REAL s 
s 
tie IFCIP 2GE. Nd 6O TO 90 REAL 10 
_12e LE(MEXT( IP) —_—_REAL if _ 
i3e IFCITYPECIP) e€Q@e 2) 60 TO 10 REAL 12 
——__ $e GO FO 99. REAL 13 _ 
ise S (FCJPTR .6Te NI 6O TO 90 REAL 4 
——--14a__IEAITYPE( PTR) ME. 2) 60 TO eg 
17e 60 TO 20 REAL t6 
ee SE Pe 6 8) 60 0: 60 ee 
Tve ~~ TE TETIVYPETIPYRY «EG. 2) GO YO 1S - ~ REACTS 


LFCALJPTR-j) eNEs DECPT) 6O TO 90 REAL 19 


LOGSTsuPTR REAL 20 

CALL LOGCHK REAL 2) 

IF(LOG -€Q. 1) 60 TO 90 REAL 22 
240 Se ee eee. ey ae 


60 TO 20 


27e GO TO 12 REAL 26 
REAL 27 
290 IF(JPTR .6T. NM) GO TO 35 REAL 28 
EE OE EE ———EEE——E—————— eee | S| cae, aoe 
dle TFCACJPTRed) c€Qe EEE) GO TO 24 REAL 30 
33e 10ESe1 REAL 32 
——__i42_______24 ELOCeJPTRe2 REAL 33 
35e 60 TO 40 REAL 34 
——_i68____26_IF(JPIR .67. M) 60 Yo 36 
37¢ GO TO 22 REAL 36 
390 32 IRELNOSELOC REAL 38 
—REAL 39 
ale 35 IRELNOeN REAL 40 
a2z0 RETURN REAL 41 


430 90 IF(UPTR GT. N) GO TO 32 REAL 492 


TFUNKT cEQe PLUS cOR, NXT cEQe MINUS) GO TO 45 REAL 44 


- REAL 45 
47°@ IFCJPTR o6T. MN) GO TO 35 REAL %6 
REAL 47. 
a9%e 9S IFCJPTR .6T. Nd GO TO 32 REAL 48 
Sle 47 IFCITYPEC PTR) .EQ@- 2) 60 TO SO REAL SO 
s = —————__- — - 7 REAL SS) 
Sie RETURN REAL 82 
——_Sfe___$0 IF(JPTR GT. MN) 40 To 365 REAL S3 
Sse GO TO 47 REAL 54 
ee ee |) | ee | oe 
| 57° RETURN : REAL Sé6 
See) ee __REAL S7 
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Te SUBROUTINE RECOG(FIN) s ‘ i 
___ ze COMMON JL ARGS/LV FUNC LVVARG LVVAD A VYPOSsLYVIYPsLVVaALy 0 
3e @LVHEAD »LVVNVL pLVDEST,LVVALS( 10) ,LVTYPE(1O) »LVSKIP 
40 COMMON/LVYTABL/LVISIZ,.VMAP( sD /LVYSEQ/LVSIZE,LYSQSP¢ dp 
se tORRON 7AL7 HOL ACTION, FUNCI ,FUNCZ,FUNCS LEFT, RIGHT, STRING, MAXI 
6e OMMON /NEE TART oc i3 
Te COMMON /STRING/ NNN(2),STR 
ge COMMON/MEEDS/ST Js JSTACK oR JAS oJ a JLAST ARIEMP STACK (900549) ve 
9e INTEGER AOL ' 
ti Be. _INTEGER START.» ASSOC STOP, RETRNR»STJsSTACKsSIRII) sACTIONSSTRING, 
lie 9 RTEMP 
SS) ee Sd aS a ene 
13e FINSeFALSEs 
fae!) Cee EXECUTE 7. 5 i 
1Se GO TO 25000 
be 25008 ‘CONTINUES = = 
i7e JSTACKSO 
1ge 
1%e c START OR 
____ 206 Cooce START Sgt co! ere 
21e Rs START 
__ 2ze ¢  _STRING*STRINGeJ/70 @STY : 2 
23e Cocece STRING ° STRING 
= GG. PAE 0 0 EE ea ee ee ee eee 
25e LVVTYP = 3 
ee ) eee Te nS | 2 
270 LVVARG® STRING 
__ gfe CL LVF INDOLY2 gh v2 Bel V2 A  ——————— 
29¢ uvi AAD = STRING 
a30e > — 1F ti VVAL aNEn~i) | vi AAD s LVYWAL 
3ie LVVTR @® LVVAL 
S20 Ee eon as =. 
3360 IF (LVVTR.EQe21) GO TO 70 
____i4e ___ Cocecee ivi AAD a Stu 
35¢ Sty = LVI AAD 
37e c STRING¢HOL.1 STRING GOMGO 
a $G6. C6600 SYRING. te _HOL = 
390 LVVPOS = 1 
400 SEVVE Rien 3 “ = 
410 LVFUNC® HOL 
nS. s 
430 CALL LVFINDILV2 €,Lv2 FyLv2 Gobv2 HW) 
2 es i ey | es | = 
45e IF (LVVAL.NEo=t) LVE AAD © LVVAL 
460 Coecee LVI AAD STRING ee! | 
47¢ LVDESte O 
4860 LVIAAHeM 
490 LVTYPE(I1) = 3 
S0¢ ___LVVALS( ID eLVIAAH . - 
Sie LVOEST= Oo 
__S2e LVVNVL © J : 
S3e LVFUNC ® STRING 
S4e LVVARGeLV) AAO 
sSe CALL LVNSRT 
as ee __IFC(LVVALeL TsO) CALL LVEXIT(LVVAL) — . - 
s7e IF(LVVALeLT.O) RETURN 
aes | ne Od || a ———=— ore — 
S9e C 10 R(*ASSOC//15,¢ST0P//1S,eSTOP/20! 
ble ivi AAD « R 
__ Ze  _— CoVecee AVA = AAD ee a 5 || | ee 
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63e LVVTYP =» 3 
ote = LVVPOS # 3 —— = = 
6Se LVINOX = QO 
ohe LYFUNC® ASSOC 
67e LVVARG® Lvi AAD 
She CALL LYFIND(LVINOX,LVINOX,LVINOX,LVINOX) — 
69e LVIAAT@LVIAAD 
700_ —__—__LE4LVVAL NE. mh) L¥EAAT OL YVAL = 
Fie LVVTR #@ LVVAL 
720 LYVAL # #300 
73e IF (LVVTR.NEo=1) GO TO 1s 
740 Coase LV) AAD * stop 
7Se LvVVTYP = 3 
p26 ___ EVV POS m4 —___— = = 
77° LVINOX = O 
788 LVFUNCe stop 
79@ LVVARG® LVI AAO 
aoa. CALL LYFINDI(LVINOX,LVINOX,LVINOX,LVINDX) 
Ble LVEAAT@LVIAAD 
82a - LE(LVVAL oNEs 3) LV¥EAALSLYVAL 
B30e LVVTR # LVVAL 
B4e LYVAL # -100 
| 8Se IF (LVVYTR.NEom1) GO TO is 
Bé4e Ceeee LVI aao 2 stop 
87¢e LVVAL # -100 
Bia _ IE {LVI _ AAD.NE~. STOP) LVVAL m= oj — 
B9e LVVTR # LVVAL 
900 LYYAL m -300 
gle IF (LVVTR.EQ.21) GO TO 20 
920 1S JSTACKMJSTACKelL 
93e STACK(JSTACK,1) OR 
——__ 94e_____STACK4JSTacx,2)29 oo 
9Se STACK(JSTACK,3)8J 
260 STACK(JUSTACK,4) 80 - ~ 
97¢@ C 20 R*aCTIiON/22 ON 
2Ba 20 CONTINUE 
990 C5oece R « ACTION 
100@ LVVIYP # 3 
tole LVYVPOS * 1 
102¢ LVYINOX #® Q ee = 
1036¢ LVFUNC#® ACTION 
1040 LYVARGs R meine == — 
1ose CALL LVFIND(LVINOX »LVINDX,LVINOX,LVINDX) 
41040 _ = Lv 4 AAD = EE | A 
107e IF (LVVAL.NEom1) LVI AAD ® LVVAL 
1O08e LYVTR » LYVAL. a 
love LVVAL = -100 
Lidge IF (LVVTReEQe-t) GO TO _ ey) See as = ees 
tile Coeee LVI AAD i) N 
see YX ene eee eer ee en eee. (2 (ae an i Hee AAD 
tide CALL SEMANTIN,FAIL) 
Aide IF(FAIL) GO TO 99 —— ——————E———— = 
tise GO TO 25 
lige C 22 R*STJ/99 OR = Se ear a eee eee! = 
lize 22 CONTINUE 
—_—_LlAs. Caeee R ns CO —————— 
119¢ LVVTYP = 3 
—_ hee LYVPOS @ 4 = cca iad aetna = = — 


hha beanie inte kane anes eee cee ee 


12le LVINDX = O 


b22e LVFUNC® a 
12360 LVVARG® R 
a Mee CALL LVFINDILVINOX sLVINOX,LVINDX sLVINOX) pec = 
12Se vi AAD = R 
____12ee 2 IF (LVVALeNEooi) LVI AAD © LVVAL —_ = 
127¢ LVVTR @ LVVAL 
e eae 
1290 IF (LVVTR.EQe=1) GO TO 99 
__J390e _Ceecee tyt AAD =" ' Rg ae 
t3te R= LVI AAD 
__ P26. 2S apo =a > - 
1336 TFS GTe MAXJ) MAXJeJ 
__[39e ¢ 30 STRING*STRINGs) OSTUs/m 
1350 30 CONTINUE 
1340 Caecse STRING =e Ss ST RIG = 2 eee ae oe 
137¢ LvvPos = J 
ee EER OS oe = = = = = 
1390 LVFUNC® STRING 
—_1400 LVVARGe 26 
i4le CALL LVFINDILV2 1,lv2 Jolv2 KyLV¥2 > 
__s42@ ty aD STRING PEA 
1436 IF (LVVAL.NEcot) LVI AAD ® LVVAL 
1440 _Ceone iva Aap ees) 2 STs = es = 
14Se STy = Lvi AAD 
__N44@ LV YTR @ Ly¥VvaL 
1470 LVVAL ® -100 
_ $480 A CL YVTRNEo21) GOTO — ws - eee ee 
14990 40 STJe-1 
1500 c ReaCTION/42 gn = 
Sie Coecee R ACTION 
—_iS2e TP ge 5 
1530 LvvPos = 1 
iS4e LVINOX © Q ae = Peek $ 
15Se LVFUNC® ACTION 
AShe JEN YANG = 
1S7e CALL LVFINDI(LVINOX,LVINDX,LVINOX,LVINDOX) 
159e IF (LVVAL.NEooI) LVI aad ® LVVAL 
je0e WTR © bvwaAR es 
Lvval # -100 
_IF (LVVTR,EQ,01) GOTO a2 
Ceeee LVI AAD i] w 


CALL SEMANTIN,FAIL) 
IFIFAIL) GO TO 9? — a 


167e 42 CALL SSTOP(FAIL) 
a AELERIL 6636 99 wai 
be9e JSTACKSISTACK SO] 
__j7Qe STACK STACK 1)DOR ee 
W7le STACKUISTACK,2)80 
cere i | eee STACK(JSTACKs3)ey a = 
1730 STACK(JSTACK,4)80 
__174e ¢ ___—ReACTION/94 BN ii 3 = e 
175e Cocce R ° ACTION 
1760 LYVIYP © 3 
177¢ Lvveos © 4 
a ———— LVINOR © O =" = 


| 
| 


iain i hi: a i aa lc Ak Sa ais ae ie hl 


179¢ LYFUNC® ACTION 


£209 —_ = LVVARGe - Rg eo a 
16le CALL LYFIND(LVINOX,LVINOX,LVINOX,LVINOX) 
182 Lvl AAD & R 
183¢ IF (LVVAL.NEowt) LVI AAD * LVVAL 
18408 LV¥VTR = LVVAL 
185e LvvAL = -100 
—__186a — LE 41 ¥¥TR,EGe=3)} GO TO ~ a = -- 
187¢ Ceeee ivi AAD a N 
188e nes LVI AAD 
189¢ CALL SEMANT(N,FAIL) 
49008 IF(FAIL) GO TO 99 
i9te 44 CALL SLEVEL(FAIL) 
eal yt IF (FAIL) RETURN — —— 
193e Go TO 40 
19408 99 CONTINUE 
19Se CALL RECOV(RETRN) 
i260 IF(RETRN .LTe OQ} GO TO 70 
197¢ Cc RETRN#®ASSOC//30 
—_49@e_Ceseese ____— RETR = ASSOG — — ——— —— 
199¢ LVVAL # -100 
200e iF 4 RETRN.NE, ASSOC) LY¥VAL = =} 
201¢ LVVTR ® CVVAL 
202 LV¥AL = #100 
2036 IF (LVVTR,NEom1) GO TO 30 
— 204e — ss AK ERETRN 6EQ- OF GOTO 40 -— —_—— ——— 
205¢ CALL SLEVEL(FAIL) 
20608 IFCFAIL) GO TO 6S 
2076 GO TO 30 
2080 o& IF CUSTACK .LEe 43 GO TO 70 
2096 JSTACKSISTACK=1 
ee ——— NN ee - = — 
2tte 70 FUiNe. TRUE, 
2120 RETURN 
213¢ Cc COMPLETE 
21408 25000 CONTINUE 
21Se LV2A"0 
2148 . Lv¥278eQ _ ——— = ee — 
217¢ Lv2C#0 
218e Ly2D#0 
219¢ LV2E*0 
220¢ LY2F a0 
221e LvzGe0 
ES 2 ee a —— ~ — 
223¢ Lvzleo 
SS) aS Ly2J#0 = ——— “re eee dae 
225¢ Lv2zK*0 
ef ees he ar ee ——— a os a — 
227¢ GO TO 25001 
Sa | es £ND = 
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ve SUBROUTINE RECOV(RETRN) 
2e COMMON/LVARGS/LVFUNC »LVVARG,LVVAD,LVVPOS sLYVTYPsLVVALy 
3e *LVHEAD,LVVNVL»LVOEST,LVVALS(10),LVTYPE(10) ,LVSKIP 
te _____COMMON/LVTABLZLVISIZsLVMAP( I)D/LVVSEQ/LVSIZE,LWSQSP( A) 
Se COMMON /NEED/ START,ASSOC,LEVEL,STOP 
oe COMMON/NEEDS/ST Is JSTACK Ra JAS ava dLASTRTIEMP sSTACK(40004) 
7e COMMON /STRING/ NNN(2),STR 
ge COMMON /HL/ HOLsACTIONsFUNCI sFUNCZsFUNC3I LEFT RIGHT STRING 
Ge INTEGER START ASSOC ,STOP,STACK,STRIL),STI,R,»,STRING,RETRN, TEMP 
10¢ +sRIGHT,HOL, 2 ct = : = = = 
tle LOGICAL FAIL 
12Ze c EXECUTE 
I3e GO TO 25000 
—— i 25001 CONTINUE — - = —=- ———EE = 
Se 10 ReSTACK(JSTACK,1) 
14e JASSSTACK(USTACK,2) 41 
17e c ReaSSOCeJAS BTEMP//30 
18e Ceeee R * ASSOC 
19e LVVPOS « JAS 
————— LV¥VTYP m3 = — SS ————— - 
21e LVFUNC® ASSOC 
220 LVVARGs R 
23e¢ CALL LVFIND(LV2 A, »LV2 B,LVv2 C,Lv2 0) 
240 Lve AAD = R 
2Se IF (LVVALeNEom1) LVI AAD # LVVAL 
26a _Cae@ee (VJ AAD ~ a ——_ +ExP — = = = — 
27¢e TEMP «» LVI AAD 
288 LVVTR @ LVVAL 
290 LVVAL *® -100 
300 IF (LV¥VITR.NE.-1) GO TO 30 
3le (< 15 R(sSTOP//40,+STOP/16eSTOP//4O OR) 
32a 45 CONTINUE —_— —- = = _ 
336¢ Lvl AAD @ R 
340 Coeee LY) AAD bu stop 
3Se LY¥VAL #® -100 
368 JF (tvs AAD.NE. STOP) LVVAL m= e#} 
37¢e LYVTR =# LVVAL 
——J8a_LVVAL a2 ©}99 ——_ a = —— — - 
39¢ IF (LVVTR.NEo=1) GO TO 40 
40e@ Caeee LVI AAD + stop 
4le LVVTYP = 3 
420 LV¥VPOS = 4 
43e LVINOX = O 
44 @ LVEUNC 2 ~ Stor —_—. —— — 
4Se LVVARG® LVI AAD 
46e CALL LYFINDILVINOALVINOX,LVINOX,LVENOX) 
47e LVILAAH®LVIAAD 
4Be TF CLVVAL .NEo @1) LUVEAAHSLVVAL 
49e LVVTR @ LVVAL 
——_ $00 .______41VVAL a #499. - - _ 
Sle IF (LVVTR.EQe-1) GO TO 16 
S2e Ceeoee LVI AAF a STOP _ 
S3e LVVAL * -100 
S4e IF(LVIAAH .NEo STOP) LYVALe-1 
SSe LVVTR = LVVAL 
She EAL se =) 55 5 =a ——s = 
S7e IF (LVVTR.NEo=1) GO TO 40 
She Ceeee LVI AAF a R 
s9e ReLVIAAH 
40¢ JeSTACK(JSTACK,3) ee ee 7” 
ole JSTACKSJSTACK=1 
h29 RETRN#0 =e = 
630 RETURN 
a4e 16 JSTACKSJSTACK@1 
6Se IF(JSTACK eLEs 0) GO TO 20 
bbe IF(STACK(JUSTACK,3) ol Te J) CALL SEMANT(OsFAIL) 
67¢ JESTACK(JSTACK,3) 
— 010 (6 — 
b69¢@ 20 RETRNae@I 
70¢ RETURN 


The 40 CONTINUE 
72° JaSTACK (JSTACK,3) r 
730 LF (STACK(USTACK,4) «GT. 0) GO TO 16 
| 740 RETRN#STOP ia : 
| 7se RETURN 
| 760 ¢ 30 TEMP oR 
77° 30 CONTINUE 
2e¢ Coece TEMP 9 (a zs 
798 Rs TEMP 
aoe IF(JSTACK s£@e 1) GO TO 35 Lea 
ele IF( R eNE, STACK(USTACK,1)) GO TO 35 
aze NTEMP=STACK(JSTACK=1,1) ee 
e3e JMARK@USTACK 
Age a STACK UMapK,4)eet ae 
ese JMARK@JMARK=1 
aae IF(R c£Qe STACK(UMARK,1) sANDe STACK(JMARK,4) aL Ts QO) GO TO LS 
ere TF(R sEQe STACK(JMARK,1) sANDe JMARK eNEs 0) GO TO 31 
ase IF(R .NEs NIEMP .OR. JAS .NEw STACK(JSTACK=1,2) OR. 
ave + STACK(JSTACK=1,4) eGE-e 0) GO TO 35 
_9pe 64010 35 
9160 35 CONTINUE 
928 IF CSTACK(USTACK,3) .LT. J) CALL SEMAMT(O,FAIL?) 
930 STACK (JSTACK»2)8JAS 
240 JeSTACK(JSTACK,3) 
9560 LF(STACK(USTACK 44) oGTe 0) STACK(JSTACK,4) 80 
_ 960 RETRN®ASSOC RS eed os 2 ees 
 97e RETURN 
one c COMPLETE » : 
998 25000 CONTINUE 
_1o9ne tas Er : 
iore LVv2820 
—1n2e tv ce 
103¢ LV2060 
1046 GO TO 25001 2 
105¢ END 


SUBROUTINE ROLCHK (11,12, 1351415416) 
OIMENSION ITARG(6) 
IARG(1)=FLOCO66,T1) 
TARG(2)=FL0(056,12) 
TARG(3)#FLO(0,6,13) 
TARG(4)=FLO(0 56514) 
IARG(5)*FLD (056515) 
TARG(6)=FLO00 96516) 
ISUSNM=0 

00 10 I=16 

I68LT=6* (1-1) 
FLOCIBIT» 6+ ISUBNM)=IARG(T) 
WRITE(3) ISUBNM 

RETURN 

ENO 


le SUBROUTINE SEARCH SEARCH 


ze COMMON A(1324),D0(S00),I1DTBL(O,500) ,INITID(3)LASTIO(9),ISREH(3), RICH 
3e © SPTRIN SM, JTYP,LSTART NZ, 1FNCNM,LOGIO,NXATID,IDTYP,NID,LOC, 

—_4@ 2 ILTYP,ITYP, IBLKOT, MODE, LFRR, IDES aioe arenes — Si. 
Se 00 20 10TyPe#t,2 SEARCH 


ae JeINITIOCIOTYP) : SEARCH 
Te IF(J eEQ@e O) GO TO 15 SEARCH 
fe DO 10 I#i,NID é SEARCH 
9e IFC LOTBL( 4,3) eNEs NXTIDO? GO TO S SEARCH 
—_Lie_____ SREB CED Tye yet SEARCH 2 
IDES#LOC 
Locey SEARCHIO 
GO TO 20 SEARCHIL 
S JmIDTBL (2,4) SEARCHI2 
TF(J e€Q« 0) GO TO 15 SEARCHIS 
—_16a_________10 CONTINUE - - —__SEARCHI4 
45 ISRCHIIDT YP} ed SEARCHIS 
—20 COMTINUE - - ——$_$____— _ SEARCHIS 
RETURN SEARCHI?7 
we eo ERE — = = — . . =— SEARCHIB 


Oi 


on . = ee RE A LT EY NL IT EN 


le SUBROUTINE SEMANT(NSFAIL) 
2e COMMON/LVARGS/LVFUNC ,LVVARG,LVVADsLVVPOSsLVVTYP, LVVALs 
ae *LYHEAD AL VYNVE SL YDEST AVVALS(I0) LYIYPELIO) aLVYSKIP 
4e COMMON/LVTABL/LVTSIZ,LVMAP( LI /LVVSEQ/LVSIZE,LVSQSP( i) 
Se COMMON/FUNC/ = NARY(S417) sMARGSs TARGS(SO) a FNCLOC(S) aNFUNC 
’ oe COMMON/HL /HOL ,ACTION, FUNC) »FUNC2,FUNC3,LEFT,RIGHT,STRING,MAXJ 
le a DRMON AT SEL NARRAY FYPE. TYPE? ERREL 6 
ge COMMON /STRING/ NTYPE,NSTR,STR 
= 5 = COMMON /JL/ JSTOP 
Toe COMMON /GIRL/NTERMS,PLUS,MINUS, SLASH, LPAR,RPAR,COMMA,STAR,EXP,LT, 
tie #LE ,GT,GE »EQ,NE,OR, AND »NOT EQUALS » OPRAND ~~ 
i2e COMMON/NEEDS/STJyJSTACK p Ry JAS oJ y JLAST  RTEMPySTACK (40044), 
Ss 130 = COMMON /NEED/ START,ASSOC,LEVEL,STOP 
I I4e COMMON/NOPAR/NOPAR ,NOEP ,NOEPTH ,NFEAG 
_ gfe INTEGER HOL ,ACTION,FUNC ,LEFT, RIGHT »STRING,RPAR»STJyRySTACK 
ltée +,EXP,FUNCS »FUNC2,FUNC3,TYPEL,TYPEZ, TYPE(S) ,STR(L),STOP 
ize _$ sALPHA.BETAsGAMMAOPRAND EQUALS, AND OR SCOMMA 
160 LOGICAL SKIP,FLAG,ERRFLG,FAIL sNOTFLG 
St. es INTEGER FUNCRE sZEROBITPUTLPLUS.FLI3) 
z20¢ INTEGER GETTYP,GETOIN 
— /) — DATA FLAG/eFALSEe/sFUNCRE/66/sZERO/O/ 
22e DATA (TYPE(T),181,5)/4HREAL, 6HCOMPLX,6HOOUBLE ,OGHINTEGR, OHLOGICLS 
—___-230 CG ETT YP LTT) emMODLI1,100N0N071NNNN ee 
24e GETOIM( II) =MO0(11,1000000)/100000 
2S ¢— c EXECUTE = a = 
260 GO TO 25000 
ES _25001 CONTINUE : = 
2860 FAIL@eFALSE. 
—___-29@ dF IN sFQ. 0) GO TO 999 =. = 
30¢ Go TO( 104201304 40450460, 70+80+90,1000,1100,1200,1300,1400,1500, 
ae | Ce &_1400),N = ee 
32e Cc 10 ResTusit OR/s12 
po 5 10 CONTINUE = Ss 
34e Coeece R + STJ 
San) eens 1 Ad ee = eee — Sees: eee 
360 LVVPOS = } 
See Ye LYINOKX = g a 
38e LVFUNC® stv 
ah |, 5_Seeeeaaes LYVARG= _R f ree = 
40606 CALL LVFIND(LVINOXsLVINOX,LVINOX,LVINOX) 
aa), eee a 
42e IF (LVVAL.NEoot) LVI AAD @ LVVAL 
See. eee sy aS a = 
44e LVVAL © 100 
ee wee a Ce) es | ee: anes 
460 ‘Coecee LVI AAO 8 R 
eee. | Ro LVI AAD . oe —a 
480 LVVTR # LVVAL 
es. a Se ae as — 
Soe IF (LVVTR.NEo=1) GO TO 12 
a | ee scr Pi ae 6 Oe ee Sey eee 
S2e RETURN 
Sie C PRIMARY RECOGNIZED = sais 
S4e 12 IF(STJ c&Qe PLUS OR. STI oEQ@e MINUS) GO TO 126 
eee es IF(STY oNEe RPAR) GO TO 12) si = ee 
Sée ISTACKSJSTACKS! 
i __ STACK (JSTACK a1) *STOP ee oe 
S8e STACK(JSTACK,2)20 
ge CKIJSTACK s _ 
606 STACK(JSTACK, 4920 
— | oo NTMPeR =e: a 
4a0 CALL SLEVEL(SKIP) 
630. JSTACK@JSTACK=1 ee 
o4%e RenTMP 
e s - 
| 660 IF(JSTOP .GTe O) JLAST@STACK(JSTOP,3) 
f——__A2e c STRING *HOL se JLAST(=STRINGs STRING @RTYPEIBS) = 
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6660 Cocee STRING + HOL | 


ie ____ ees 8 JLAST 
70¢e LVVTYP @ 3 
Jie. LYFUNC® HOL — 
72e LVVARGS STRING 
730 CALL LYFINDILY2 Aol V2 Bel v2 Cot V2- Or 
74e Lvi AAD = STRING 
—2Sa_____IF {1 VVAL .mME.e3) Lvs AAD « Lwvap 
76e Lvi AAH = LVI AAD 
72a Ceeee LV AAF = STRING 
76¢ LVVADs-1 
798 LY¥VTYPeet 
806¢ LvvPOSs! 
Ble A STRING = 
82e LVVARGSLV] AAH 
B30 CALL LVOLET ee ee es 
B4e tvi AAH @ LVI AAD 
aSe Casee Lv AAR STRING ol 
Bb0e LVOEST® oO 
#70 4 ¥4—____ AA} 5 Types —S—— 
88e LVTYPE(I) © 13 
Boe AVVALSCED = ave AAS —— — = 
906 LVDEST= 0o 
_940— LVVNVL m4 —— 2 
920 LVFUNC = STRING 
—9 pe —_______4V¥VARGeL¥4 AAM 
94e CALL LVNSRT 
95a TECLVVALSLT.O) CALL LVEXITILVVAL) 
96e IF (LVVAL*+LT2O) RETURN 
_92e es RETURN 3 ——— a ee _ 
98e 121 CONTINUE 
—9Ge___¢ GET _ity¥PE — 
1006¢ BETASGETDIM(STRIJ)) 
101e _ __.__ 1 F{BETA .NE. S) GO TO 14125 — $$  ____— — 
102e C OPERAND IS A FUNCTION REFERENCE 
1030 _ IF(NDEP .EQ. O} GO TO 18 oe Ieee eee 
104e LVVPOS#-LVVPOS 
—iGSe EVV TYP we 5 = 
106¢ LvvPoss t 
1070 _____LYDESTs 2 _ ee 
108e tvi aad = 1 
109e— = LYTYPE(1) mw» J — SS ee ee 
1106 LVVALS(1) # LVI Aad 


tize LVVNVL © 1 


_1ije NC CUNY as eee eee 
bide LVVARGs OPRAND 

—Lise . COC AL LNNSRT ween z oa a 

tlée TF(LVVALeLT¢O) CALL LVEXITILVVAL) 


poe Sf eee fo a a) en 
11866 18 ReFUNCRE 


Ee. JSTACKSJSTACK 4 = a cea | salen 
1206 STACK(JSTACK,1)8R 

A2he STACK(JSTACK,2)80 ee 
122e STACK(JSTACK,3) 8/41 


as > kT Sen cl EC lS a 


124e 125 ALPHASGETTYP(STR(J)) 
A2Se ss CN AY YPEL 4GEn. O) GO TO 13 i eR a 


106 


12ée ¢ SEY TYPE OF STATEMENT oa 


A27e (CT PE ALPHA ——. 
1286 IF(NTYPE ,EQe 3) TYPELe-1 
A29¢ C 126 STRING*HOLeJi=STRINGsSTRING S@TYPEI@@) = 
130¢ 126 CONTINUE 
Adie Ceeee STRING 2 HwOL 
1320 LvvPos = J 
3369 _LY¥VIYP s 3 
i34e LVFUNCs HOL 
13Se LYVARG® STRING 
1366¢ CALL LVFINDI(LV2 €,Lv2 F,Lv2 GyLv2 4) 
A37e vi AAH = STRING Sd 
13860 IF (LVVAL.NEoot) LVI AAW © LVVAL 
Alize. LY¥i AAJ = LYI AAW ae 
14006 Ceeee LVI AAF STRING 
A4ie LVVADe-1 
1420 LVVTYPe-1 
A43¢e LyvPosel ae 
1440 LVFUNCs STRING 
A4Se CVV ARGOL YR AA 
1460 CALL LVOLET 
A47¢ Lvi AAJ = LY AAH = 
1466 Coecece LVI AAF STRING cr) 
1499¢ LYDEST= oO 
1Soe uvi AAK © TYPES 
Fy a eeeememel 4 3h ST Ts 0 ee Seer = ee wks 
1520 LVVALS(1) = LVI AAK 
AS3e LYDEST#® oO 
1S4e LVVNVL = 1 
AS5e@ NC STRING = at 
1560 LVVARG#LV} AAJ 
el i Na a 
1566 TFC LVVALeLT2O) CALL LVEXITILVVAL) 
1sge : LF{LYVALeL TsO) RETURN 
160° RETURN 
Lote 13 _IFC(FLAG) Go TO 15 
162e C CHECK FOR MIXED MODE EXPRESSION 
e3je ss (TYPES sEQe ALPHA 2ORe ALPHA e£Qe 5S) GOTO if 2 
le4e 14 NieTYPEL¢) 
465e N2@ALPHAS] ie : 
1660 ERRFLG#.TRUEe 
: 167¢ CALL ERROR(77,TYPE(NI) »TYPE(N2)) ; 
16660 c STRING*HOL sJ(“STRING,STRING B@TYPEIG@) 
169e Coecee STRING Bees. eae GE, a 
170¢ LvVPOS = J 
171° LvvTYe = 3 — 
| 172¢ LVFUNC® HOL 
1730 LVVARG®# STRING eae ees 
| 74e CALL LVFIND(LY2 1,Lv2 Jolv2 K»Lv2 u 
175¢ uvi AAH # STRING oy 
: t7ee IF (LVVAL.NEo=1) Lvi AAH ® LVVAL 
} 177¢ vi AAy @ LVI AAH 
| 176¢ Ceeee LVI AAF - STRING 
1798 LVVADe-) 
180° LVVTYPe-1 
Apje sv POSey 
182e LVFUNC® STRING 
| 183¢ LVVARGSLVL AAJ 
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- - —————— . — — 
, pias st ee ee ee > 


1B4%e 
18Se 
186¢ 
187e 
168¢ 
Lave 
1906 
1gie 
192¢ 
1930 
194e 
4950 
19660 
197e 
198e 
1990 
200¢ 
201¢e 
202¢ 
20308 
204e 
205e 
206¢ 
2078 
2086 
209¢ 
210¢ 
211e 
212¢ 
2Zi3e 
214° 
2150 
2166 
2178 
2186 
2198 
220¢ 
22ie 
222¢ 
223° 
2246 
225¢ 
2266 
2218 
226¢ 
229¢ 
2300 
23ie 
2326 
aie 
234%e 
2i5¢ 
2360 
2376 
2366 
2i%8 
240¢ 
241¢@ 


peers i i eas 


CALL LVOLET 


LVI AAJ = LVI AAH = = ——— j 
Coeee LVI AAF STRING [-]-] ’ 

LYOEST= oO 

Lv AAL = TYPE! 

LVTYPE(1) »& 1 

LVVALS(1) = LVI AAL 


LYDESTa 9 : ee ee ee 
LVVNVL © 4 

LVFUNC @ STRING 

LVVARGSLVI AAS 

CALL LYNSRT 

IFCLVVALeLT2O) CALL LVEXIT(LVVAL) 

IF (LVVAL*LT.0) RETURN seats Sei a Pees ee 
RETURN 

C PARSING AN EXPONENT 
15 IFC (ALPHA cEQe 3 eANDs TYPEL c&Qe 3)cORe((TYPEL c€Qe O eORs TYPEL 

* EQ. 2) sANDe 
+( ALPHA e€Q6 O +ORe ALPHA eEQe 2))) GO TO 16 

CALL ERROR(78,4,KOM2) : : = = = 
ERRFLG#.TRUES 


Cc STRINGtHOLeJ(=STRING,STRING @@TYPEIQ@) 
Coeese STRING HOL 
LvvPOS « J 
LV¥VTYP = 3 
LYFUNC#® ~HOL ie —— —— = = a 
LVVARGs STRING 
CALL LYFIND(LY2 M,LV2 N,Lv2 O,L V2. P) 
LVI AAH ® STRING 
IF (LVVALeNEow1) LVI AAH @ LYVVAL 
Lvi AAJ @ LVI AAH 
Caeee ivy AAE 2 pi A ENG = 
LVVAD8=1 
LVVTYPe-t = 
LvvPOSss| 
LVFUNC® STRING 
LVVARG®LVI AAS 
Catt LvOLler = = = 
| AAJ @= LVI AAH 
Coecee ivi AAF STRING ae cei " ane 
LVDEST® 0O 
Lv1 AAM © TYPEL ss 


LYTYPE(I) = 1 
LVWALS(O) m LYE AAM 


LVOEST#= QO 

LYVNWL @# 1 . ——— —— — 
LYFUNC ® STRING 

LYVARG®LY1 AAJ - ————n <a _— 


CALL LYNSRT 
DUE A TS ae ET PA A DL 
TF(LVVALeLT+O) RETURN 
RETURN ct eg a eso a —_—so 
16 TFC SC eNOTe FLAG sANDe TYPEL ol Te ALPHA) cORSIFLAG sANDe ALPHA eNEo 3 
* eANDe TYPEL eL Te ALPHA)) TYPEL*ALPHA a = — 


c STRING*HOL eJ(=STRING,STRING OOTYPEILOR) 
Caeee STRING SS eee) — 
LvvPos « J 


LvvIyPe e 3 = Se ee — — 
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Z4Ze LVFUNCs HOL | 
2430 a LVVARGSs __STRING a . i et ee : = ] 
244 CALL LVFINDILV2 Q,Lv2 R,Lv2 S»lv2 ™) | 
24Se ivi AAH « STRING | 
2460 IF (LVVAL.NEom1) LVI AAH @ LVVAL 
247° tvi AAy = LVI AAH 
24686 Ceeee LVI AAF - STRING 
EE VVAGes 2 — we eee = ener aoe 
250¢ LVVTYPe-l 
2Ste LVVPOS#) 
252¢ LVFUNC® STRING 
253¢ LVVARGOLVE AAJ 
25460 CALL LVOLET 
—_25S¢e EV. O85 es EVE pA ae Soe = = 
256¢e Coeee LV) AAF STRING J") 
2sle LYDEST® QO 
256¢ ivi AAN ®@ TYPE} 
2590 LY¥TYPE(1) » | 
260¢ LVVALS(1) = LVI AAN 
2bie L¥DOESTa go = — ae 
262¢ LVVNVL ®@ 1 
__ 2hje LYFUNC ® STRING : Bee ees 
2640 LVVARGeLVE AAJ 
24Se CALL LYNSRT = 
2660 TFCLVVALeL TO? CALL LVEXIT(LVVAL) 
—247e sss NF ELVVALeLT.O) RETURN = es . 
2686 RETURN 
_ 249¢ C MILL SCAN AN EXPONENT _ eS en 
270¢ 20 IF(STJ elt. OF RETURN 
—£7i¢ _ -¢._ ROST IE) OR See, eee a : wijanz 
272¢ Cocecee R * stu 
21i3e¢ LYVIYP © 3 ~ ee eee 
274¢e LvvPOS = 1 
wr 7 = LVINOX © QO . ee 
276¢ LVFUNC® stu 
a ES, a LVVARGO® | ee ee = 
276¢ CALL LVFINDILVINOX,LVINDX,LVINOX,LVINOX) 
po) ee |) ey ye Sa ae ae 
280¢ IF €LVVALSNEooE) LVI AAH @® LVVAL 
_281¢ - LVVTR © LVVAL ms SSE 
2862¢ LVVAL # -100 
_283¢ __LF {LVVIREGsol) GO YO sf. = = = 
264% Ceece LVI AAD -) R 
ae) ees SS A! a — a —— 
28660 FLAG@. TRUE. 
fe) eee EEE = — ae. 
26860 C RECOGNIZED A TERM,PRODUCT OR PRIMARY PERHAPS NEEDING PARENTHESIZATION 
—_2a%e _—_s_—_—s 330 CONTINVE 3 a ee = : 
2900 KTMPER 
® NOEP 
292¢ LVVPOSe-LVVPOS 
_ 2930 LVVTYP= 9 eee oF aoe 
2940 LVVPOSs 1 
2950 LVDEST= 2 a Ss 
2960 tvi AAH @ 1 
297e LVTYPEC A) s i 
2960 LVVALS(1) © LVI AAH 
oe ik LYDEST= 2 ha payee a ound 
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~ a ee 
Se terme igh Maly NY cme aoe 


30G¢ LVVNWEL = 4 
—Agie __.__.____§_LYFUMNC s» FUNCI = 
302¢ LVVARGs OPRANO 
Adie CALL LYNSRT Os SS eee = — = 
304%¢e TFCLVVALeLT6O) CALL LVEXITILVVAL) 
3050 UFULVVALCLI~O) RETURN $$ __—__—_—_— _ 
306¢ 34 CONTINUE 
—392a___ 41testaQg se a 
308° IF(STY eLT. OF GO TO 31 
3080 c Rests BR/432 es 
3106¢ Ceoece R . sty 
site LvvTyP a2 3 
size LvvPos = 1 
ijia— 4VINDX a2 Q _- ——————— 
3i4e LVFUNCe sty 
31S LVVARGa R <= ‘ ae 
diee CALL LVFINDILVINOX,LVINOX,LVINOX,LVINOX) 
size uve AAS = R — 
31660 IF (LVVALNEewI) LVI AAJ ® LVVAL 
ae -—eeee L¥y-— —AAF al et 
320¢ Rs tVi AAJ 
Jzie &VVTIR @ LVVAL - - -———— — - 
322¢ LVVAL #= -100 
3zie UF 4LVVTRNEC*I) GO TO 32 
3z4e C 31 RestOPs39 OR 
——312Se______31_COmIinue — 
326¢ Ceeece R ¢ STOP 
_. 32728 Lvviye = 3 - —--- -—— 
4 32860 LvvPeos = 4 
3298 LVINDX 2 QO _ = = a 
330¢ LVFUNCe stop 
——_iyie_______1¥vAR6a__ = = — Sa oe Tee 
332¢ CALL LVFINDILVINOX,LVINDOX,LVINDX,LVINOX?) 
3338 ius AAJ 5 | = —— —_ - = 
3346 IF (LVVALNEowI) LVE AAJ @ LVVAL 
i3Se L¥vITR @ L¥vAL a = i ee 
3360 LVVAL *= -100 
iG OO a ee 
3366 Ceoeee LVI AAF ] R 
_._ 3398 Retlv¥l AAJ = sp = 
3400 IF (STI ol Te O cANDe KTMP .EQe 889) GO TO 38 
—___ 3418 _ 1TESTael ~ = — = . = 
342e 32 CONTINUE 
——_3aje__c IF _UMARY P.,US OR MINUS RETURN 
3440 TFUSTACK(USTOP,I) eNEe 268 eANDe STACK(JSTOP,1) eNE. 110) GO TO 33 
a AL AST mSTACK(JSTOP,3)03 — = a . — 
34960 IFCSTACK(CUSTOP,1) cEQe 2866) JLAST#JLAST=1 
isle ¢ STRING*HOL JLAST(*STRING,STRING O@TYPEI@@) _ facing 
3496¢ Ceoeece STRING . WHOL 
——AS 28 OS ASE 
350¢ LvvTYP « 3 
————————— LYFUNCS® HOL na = ‘ ———— 
352¢ LVVARGe STRING 
—_§S3e CALL LYFIND(LY2 Ugh W2 = Malw2 igh W2 CK) ani 
3s4%e ivi AAJ « STRING 
Se A eee SE EE EE 
3560 tvi AAO # LVI AAJ 


___is2e ____ Cceeee LV) — AAL ——_s i | a 
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ome rd . -- + 
ee ee ee f ‘ ‘ 


— 2 ET SE ee me 


35860 LVVADe-1 


t 24Sse- ERE == = 
360¢ LvvPosel 
a LVFUNC® STRING = 
362¢ LVVARGSLV} AAO 
____ Bade _ CALL LYOLET 
3so4e vi AAO = LVI AAJ 
—___345e Coecee ivi AAL STRING 2 
3b6e LVDEST® Oo 
__267¢ LYI AAP = TYPEL 
3668¢ LVTYPE(i) = 3 
age LYVALS(1) = LVI AAP es 
370¢ LVDEST= oO 
—_—_AlLe_ 0) ea ee aa 
372¢ LVFUNC s STRING 
A72e LYVARGSLVI AAQ SS 
374e CALL LVNSRT 
——_ aS LE(LYVALsLT.O! CALL LVEXIT(LYVAL) 0 
376¢ IF (LVVALeLT2O) RETURN 
__3727e  c¢  STRING®HOL .J(-STRING,STRING @@TYPElgm@) 
3766 Coecee STRING + HOL 
ae __._LYVPQS ® a ecihina —_ 
3800 LVVTYP » 3 
__ 3818 LYFUNC® HOL — - 2 
382¢ LVVARG®# STRING 
—_ 36 30 CALE EVE ENO CLV = ee a 
364e Lvi AAJ ® STRING 
38S5¢ IF (LVVAL.NEo-1) L¥L AAJ @ LYVAL ar aes 
3860 ivi AAO = LVI AAJ 
___3878 — Caene LVE AAL Ce) | Sa a 
3886¢e LVVADe-1 
——_38 90 ee Tv Pe 
390¢ LVvPOSe1 
_39le LYFUNC® STRING we 
392¢ LVVARGSLV) aad 
} 3938 - CALL LYDLET ts e aks : 
394e vi AAO «@ LVI AAJ 
Coeee ivi AAL STRING SS 
3960 LVOEST® oO 
ry {re LYL AAG « TYPE) = 
39860 CVTYPE(I) #* 1 
3790 LVVALS(1) = LVL AAQ 2 
400¢ LVDESTe® oO 
OE", CR - 2 
402 LVFUNC © STRING 
4Q3¢ LVVARGSLVE AAO _— 
4O04e CALL LVNSRT 
4QSe IF(LVVALoLToO? CALL LVEXIT(LVVAL) 
4066 IF(LVVALeLT¢O) RETURN 
407¢ = LFCITEST si Te O) Javed a eee 
408e RETURN 
409¢ 33 CONTINUE 
4106¢ IFCUTEST «lL Te OF J8Jo} 
4ile YSTACKSJSTACKS1 
412¢ STACK(JSTACK,1)=8STOP 
4i3e _ STACK(JSTACK,2)80 
4146 STACK(JSTACK,3)8J 


41Se STACK(JSTACKs4)80 


ee 


4lée NTMP®R 


417e CALL SLEVEL (SKIP) E 5 = 
418¢ JSTACK@JSTACK=1 

419e ReNTMP 

4200 YLAST#! 

421e IFCUSTOP .GT.s OF JLAST@STACKIJSTOP,3) 

4220 NIMPSTYPE) 

4236 __—_JdJeaJLaST —_ : SEE aon ————EE 
424e TFASTACKEISTACK,1) cE Qe 418 eANDe JLAST oGTe 1) JUBILAST#=1 

42Se@ ¢c STRINGCHOLeJJ*STRING BSTYPEL 

426¢ Coecee STRING ° HOL 

4270 ivvPos « JJ 

4260 LvvTYeP = 7 

A29@ LVFUNC HOL —_ eo Z ae AIRS = SS 
43060 LVVARG®s STRING 

43ie CALL LYFINDILV2 2,L¥2 3eLv2 4,Lv2 S$) 

432¢ Lvi AAJ ® STRING 

4330 1F (LYWAL.NEs=3) L¥d AAJ = LYVAL 

434e Ceeee Lv AAF + STRING 

2 AVUVIYRP m 3 ee = = 
4360 LvvPos © 1 

4i7¢@ LYINOX # QO 

43660 LVFUNC® STRING 

439¢ LYVARGe ivi AAJ 

440¢ CALL LVFINDILVINOX,LVINOX,LVINOX,LVINOX) 

-441@ ._« jy} AO mw Lyd Aad —— = 
442 IF (LVVAL.NEomt) LVI AAO = LVVAL 

4i3e Coeee ivi AAL a TYPEs 

4a44e TYPE, # LVI AAO 

44Se IF (.NOTs FLAG .ORs. NIMP 4EQs 3) GO TO 35 = 

4460 TE CONTMP CEQ eOcORGNTMP CEQ eZ) cANDe(TYPEL SEQ eOcORe TYPELCEQe2))GOTO 35 
-447@  .. £RRFi GesTRUES cat s 

4480 CALL ERROR(78,J5,KOM2) 

4490 35 CONTINUE ee ee 

4500¢ IFCTYPEL .GTe 2 .ORe NTYPE .GTe 1) GO TO 38 

4S1¢ FUNC®FUNCY oe = = 

4S2¢ IFCTYPEL .EQ@e 1) FUNC®FUNC2 

SO AELTYPEL .FQs 2) FUNCSFUNCS 

a54e c STRING*HOL.JLAST LEFT(.1 LPARygel FUNC) 

45Se Coeee STRING LE ____HOL i eee 

4560 LvvPos e@ JLAST 

457¢ LYVIYP # i ee 
4560 LVFUNC® WOL 

_4S2e sss WV ARGO SIRING 

460¢ CALL LVFINDILV2 6,LV2 7,LVv2 8,LV2 9) 
——————— MYA AAQ © SIRING a 
462e IF (LVVAL.NEooI) LVI AAO @ LVVAL 

4630 AY = oar 

4o4%e tv AAR «= LEFT 

96Se@ eeoe 

4660 LVVTYP=e 3 

S676. VOSS tore '3 =e biennial ateaasteiiiomeaell 
46660 Ceoeee LVI AAF LYE aad LPAR 

A) Oe __ -b¥GESTe.§ ——s a eee ee 
470¢ LVTYPE(I) © O 

a) eee Le Ye ee fl eee eT ae 
472¢ LVVNWL © 43 


2 AG em 


474e LVVARGeLV) AAJ 7 


475¢ CALL LVNSRT 
IFCLVVALeLT2O) CALL LVEXIT(LYVAL) 
IFC LVVAL LT oO) RETURN 


ivi AAJ ® LVI AAO 
Coooe LVI AAO ees, ee ee 
LVVTYP= 3 
VVPOSe = 
48260 Coecee LVI AAF LVI AAO FUNC 
a) ae LYDEST= ) - = =a 
4840 LVTYPE(I) = O 
"6Se ARS ODD FUNC a : a 
4B6e0e LVVNVL = i] 
— Oe ERR UNG ie eee eS 
4680 LVVARG#LVI aad 
eve CALL A VNNSRT ee Sees = pas Ao, 
4900 IFCLVVALeL TeO) CALL LVEXITO(LVVAL) 
—S91e ss LAL st 1.0) RETURN = gr ge i Pe 
4920 C STRINGOHOL.J RIGHY RPAR 
Ae! ee ee ae es | a a a er 
4940 LvvPos = J 
goSe EVER Ras gr ee J 
4960 LVFUNCe HOL 
4970  _—s— LV ARG@ STRING = = = 
9960 CALL LVFINDILV2 AA,LV2 AB,Lv2 ACoLv2 aor 
—4gge L¥i AAG = _—s STRING = 
S00¢ IF (LVVALSNEomt) LVI AAO ® LYVAL 
~SOle  _ Ccooee tvt AAR RIGHT  -_—s_—s—s RPAR 
Soze LVOEST= oO 
e LVIYPE(1) s @O = = = 
5046 LVVALSCE) s RPAR 
pees LS reer AS | Ea ES ee ae ee ee a er a ae ee ae es 
S060 LVFUNC ® RIGHT 
—_So7e _LVVARGeLVE AAD — - > 
S08e CALL LVNSRT 
—So9e CF ULV VAL eh TeQ? CALL LVEXIT(LVVAL) — 
5100 TF(LVVAL cL T00) RETURN 
—Site 3M UFCITEST aL Ts O sAND, ST) si To OF dovot 
Size FLAG®.FALSE. 
—_Sije RETURN —s aan 
Si4e 39 FLAG™.FALSE. 
—Sise @O TO it == = . = 
Stee C CHECK FOR CORRECTNESS OF SUBSCRIPTS 
J s 
Si6e Cc ReSsTJsit OR 
—S19¢  Coece R * Sty — _ 
$2060 LvvTYP @ 3 
26 ae Ee eee Se ee ae 
S22e LVINDX © O 
e FUNC® T sl 
S246 LVVARGe R 
_S2Se CALL LVFINDILVINOXSLVINDXSLVINOX,LVINOX) Ss 
S260 uvi AAO @ R 
S270 CF CALVVARNEomED CVE = AAO © LVVAL = ee 
S280 LVVTR © LVVAL 
[ 
$3060 IF (LVVTR.EQe*1) GO TO 1 
Pe} ) ee a a | = ee es 
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“S32e Re Lvl AAO 
—Sije ET ASGETDIMISTRIJ)) 


S340 IF(NR cEQ, 359 sANDs NBETA .NEe 4) GO TO 47 
S3se ALPHASGETTYP(STR(4)) 
S360 GAMMA=STR(J)/1000000 
S378 IF{NIYPE .£Q. 3) GO TO 45 
S3e0 TF CNR .EQ, 83% sANDs NBETA .E8. 0) GO TO 45 
—S39e_______IF4NR .£Q, 369) 6O Io us ~ 
S406¢ JFUNR cE€Q, 21 eANDe NBETA e€@e 4) GO TO 45 
‘Saye LEUNBETA .EQ. O oAND. WR .EQs 935) GO TO 45 
S42e IFUNTYPE .EQe 2 sANDe NR cEQe 935 eANDe STRid-1) oNEs -7) GO TO 4S 
S430 IFUNTYPE .£Qe 2 sAND. NR EQe 35% sANDs NBETA .EQ. 0) GO 10 11 
S44e CALL ERROR(79,J,KOM2) 
—S4Se ._____—sERRFLGe.TRUE, — 
S460 45 CONTINUE 
_ S470. JFLGAMMA GE. 6 sAND, NBETA sEQ. 4) CALL ERROR(76,KOM1,K0N2) 
5480 IF (ALPHA .EQ- 3) GO TO 46 
S49e MI MALPHAC) 
550° ERRFLG@eTRUES 
SEi8 —~__C Ate ERROR4 OO TYPE INE Ud 
552¢ 46 IFU(NBETA .EQ6 4) RETURN 
_ SS3a MARGSAMARGS*4 = fe = 
5540 ivi AAQ = OPRAND 
555e@ LVOEST=2 Q — 
5560 uvi AAR © MARGS 
—66-20—___.¥F¥RE(44) «4. —_ = 
5580 LVVALS(1) # LVI AAR 
— $590 LVOEST=@ 9 —_—— 
560¢ LVVNYL © 4 
Seis LVFUNC = FUNC2 —_— ——— 
5620 LVVARGSLV) AAO 
—Soje—______CaLL .vNSry —— ——— 
S640 IFCLVVALeL TO? CALL LVEXIT(LVVAL) 
S450 — —___IFALVYVALsLI.0) RETURN ie es = 
S66e LVDEST= oO 
567 @ ova AAJ a J = a —— =—s 
Seee LVTYPE(S) = 1 
—Ss9e LSE) oe LD BAL = 
570° LVDEST#® 0 
—S2i0 — ALWWNYL 4 : ; oer ee = 
5720 LVFUNC = FUNC3 
S730 ____LYVARGaLVE aaQd. = 2 SS = —— Zz z 
5746 CALL LYNSRT 
—S72Se LAL LTO) CALL LWEXITiLywALy 
S760 SFCLVVALeL TO) RETURN 
S270 LVDESTa og a 
5780 ivi AAS @ NDEPTH 
S290 NYP ELD) og eee ss 
5800 LVVALS(I) © LVI AAS 
ee) ee ei hh ee, 
5826 LVVNVL = J 
S830 ss LVF UNC REVEG = s a 
S84e LVVARG@LVE Aad 
Sse CALL LYNSRYO Soaiees en —= = = = 
58660 IFCLVVALeLT6O) CALL LVEXITOILVVAL) 
ts, en | ee ot ae A, {ee 
5880 IVRe(MARGS+1)/2 


SAQ@ AIR GT. SO) GO TO 1610 


5906 TCOLSI1BeMOD(MARGS<1,2)¢9 


2) ) i LVAL*MOO(STR(J), 10000) ee ee ee ee eee eee 
592¢ TARGSCIVR) =BITPUT(IARGS(IVR),IVAL,ICOL) 
S930 IFINR cEQe 8397) GO TO 49 
S940 IF(NTYPE .NEe 3) RETURN 
s7Se C FLAG SUBSCRIPT IN 1/0 LIST 
S960 TARGS( IVR) @BITPUT(IARGS(IVR),1,1COL*3) 
as 2) See a ene Ee eee Ss = ee —— 
S980 C FLAG 00 INDEX IN 1/0 LIST 
s7ve 42 LARGS(IVR)I#BITPUT(IARGS(IYR)s2,1COL*3) 
600¢ IF(NFLAG oLT. 1) RETURN 
4ole LARGS(LVRIRBLTPUTCLARGS(CIVR) SFL ONFL AG) ICOL49) 
602¢ RETURN 
__ 4036 __ HF RR : =e = = 
604e c SUBSCRIPT DOES NOT BEGIN WITH CONSTANT, FORCE SEARCH FOR VARLABLE 
4ose GO 10 11 
606¢ C CHECK FOR PROPER NUMBER OF SUBSCRIPTS 
407e 50 IF BETA .EQse 4 .ORe R oNEw 452) GO TO S2 
608¢ MARGS=MARGS#1 
22 ee eee eee =—s = 
610¢ LVDEST= oO 
alle LVI AAT = MARGS 
612¢ LVTYPE(1) = 1 
4i3¢ LYVALS(1) » LYE aatl 
ose LVYDEST= oO 
41Se LVVNVL a 4 ae ee 
616¢ LVFUNC = FUNC2 
bile LYVARGSLY) AAO 
618¢ CALL LYNSRT 
6198 IF (A VVALSLT.O) CALL LVEXIT(LYWAL) 
620¢ LF CLVVALeLT6O) RETURN 
ee St eS hae ee ae = — == 
622¢ vi AAU & Jet 
4230 LYTYPE(1) = 12 
624¢@ LVVALS(1) # LVI AAU 
a2Se LYDEST= oO 
626¢ LYVNVL = 1 
FE es —EVEUNG «FUNC Se 
628¢ LVVARG®LV] AAO 
e29¢ CALL LYNSRT 
630¢ IF(LVVALeL T6O) CALL LVEXITILVVAL) 
o3le IF(LVVALeLTeO) RETURN 
632¢ LVDEST= 9Q 
7 ae) Ce Lyi AAY = NDEPTH corn poe = = 
634e LYTYPE(1) © 1 
635¢ LYVALS(1) = LVI AAV 
636e LVOEST= oO 
637° LVVNVL = J 
6380 LVFUNC # LEVEL 
a GSI LVVARG#LVE __ AAQ =. —— Se = — = — 
7 +640¢ CALL LVNSRT 
64le TF (LVVAL +L Te¢O) CALL LVEXIT(LVVAL) 
642¢ TF CLVVAL +L T60) KETURN 
643¢ IVR®(MARGS#1)/2 
b44e IFC(IVR «GT. 50) GO TO 1610 
—_645e I COLetBeMOD(MARGS=1,2)%9 ; = is 
6460 IVAL#MOO(STR(J-1),10000) 


647° TARGS( IVR) SBITPUT(TARGS(IVR) sIVALSICOL) 


6480¢ IF (NOPAR .LEe OF GO TO $2 
C11 __L¥VPOS © SS) = = = 
650¢ LVVTYP «@ 3 
45le LYVYPOS=s-LyYPOS = 
6S2e LVFUNC® ACTION 
4530 LYVARGe OPRAND = = 2 
654%e CALL LVFINDILV2 aE ,Lv2 AF,LV2 AG,LV2 AW) 
4SSa 4¥y AAQ = | OPRAND = 
6$6e IF (LVVAL.NEomE) LVI AAO #® LVVAL 
4570 L¥¥TR m@ LY¥VAL _ _ 
6566¢ LVVAL = -100 
6590 LF 4L¥¥TR.EQ.21) 60 10 $2 
660¢ MFUNC @ LVI AAO 
—_bole ___ 1 ARGS(IVR jp wBITPUTLIARGS( IVR) mMEUNC ,ICOLejy) ——— 
662e TARGSCIVR) SBITPUTCIARGSCIVR) »NARGS,ICOLS9) 
4638 C IF MO STRING LEFT, RETURN IF CONSTANT, VARIABLE OR I/O LIST 
664%e S52 IFU(STJ el Te O eANDe (BETA cEQe O cORe BETA cEQe 4 
66508 S .OR. NMIYPE .EQ. 3)) RETURN = a en see ee = 
6660 IF(BETA eGTe NARRAY) GO TO 55 
—_+6le—____ERRFLGa.IRQue. a 
6660 CALL ERROR(B1,/) 
+690 SS 1F{R .EQs 452) MARRAYAO —— —— ~ 
670¢ TF(R cEQ@e 318) NARRAY®1 
47ile JF({R .EQ. 60) NARRAYa2 : — = 
672¢ TF(R cEQ@e 103) NARRAY®3 
a230 _IFi{ST si tT. 0) 60 TO SB i a 
67460 (< ReSTJ OR//56 
—_#75¢e  Coeeese R e SS ———————————— = 
e760 LvvTve = 3 
4770 _____ LYWPOS # 4 aero Sees = SS 
6760 LVINOX = 9 


— i ee En 5 = 
6800¢ LVVARG® R 
—#Bje CALL LVFIMDILVINOX,LVIMOX LVIMOX,tvIMONP = = 


6820 tv AAO ® R 
#830 —___ LF AL WVAL.NE.ct) LV) AAO wm L¥WaL eS ee 
664e Coeee LVI AAL 8 R 


Ce eS ee 
6860 LVVTR © LVVAL 


—s87e ___AWWAL © ©3909 _ 
6860 IF (LVVTR.NES=1) GO TO Se 

—sh2e SB IFIMTYPE £0. 3 .AND, NMARRAY .£Q. 0) 60 TO S7 = 
690¢ TF (BETA +GEe | sANDe BETA oLEo 3 sANDe NOPAR .EQe 0) 


pe ees a a Pa Cl) ) a 
6920 57 NARRAYe=1 
7 +) owes (: ae fee YS 2 ae 


o94%e S6 IFUNTYPE .EQ+ 3 sANDs NARRAY cEQ. 0) RETURN 
a9S5e _LF(ST) s6€Q. RPAR sANDs NARRAY eh Te BETA sANDs J s&s MAXJ) 000] 
6960 S CALL ERROR(62,4,KON2) 
s se 
6980 RETURN 


A990 C RESET TYPE OF STATEMENT IN ANTICIPATION OF SEARCH FOR BOOLEAN PRIMARY 
700¢ 60 CONTINUE 


_IQie NOT FL Gee FALSE® scares “ 
702¢ TFUCSTRIJ-1) cEQe $17) NOTFLEeTRUE. 

—20is__JyPEine} 
70%e c STRING*HOL eJI@STRING, STRING BOTYPEIGR) 


1059 Cases STRING = _ HOL 
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70ée LVVPOS = J 


_707¢ = See 3) a ——— = ~ —= ~~ = 
708¢ LVFUNCSs HOL 
7090 LVVARG= STRING 
710¢ CALL LVFINDI(LV2 AL,LV2 Adekv2 AK LV2 AL) 
71Le Lvi AAQ = STRING 
7i2e IF (LVVAL.NEomt) LVI AAO = LVVAL 
Fi3e EN Ae Ee AAQ ——— — = - 
7i4e Ceeee LVI AAO - STRING 
7ise¢ LYYAD#-) < 
7loe LVVTYPs-t 
717¢ LYVPOS#1 
7186 LVFUNC® STRING 
= 4) See Aa i ae eid | 2 ee ee = = Ss 
720¢ CALL LVOLET 
721¢ LYL AA@ «a Ly¥l AAO 
722¢ Ceecee LVI AAO STRING oe 
7230 LYDEST= 9g 
724e Lvi AAX @ TYPEL 
we 7 St 5 a Ea = = 
726e LVVALS(I) @# LVI AAX 
727¢ LYDEST® g = 
7286 LVVNVL = 41 
7298 LYFUNC # STRING 
730¢ LVVARGSLVI AA® 
_1ile = CALL EVNSRYy-_- ee = 
732 IF(LVVALeL TeO! CALL LVEXIT(LVVAL) 
733¢ IF(LVVALeLTeQ) RETURN 
7340 IF(STJ eNEe OPRAND) GO TO 65 
73S5¢ ALPHASGETTYP(STR(J)) SS et ee 
736e BETASGETOIM(STR(J)) 
7aze JFL ALPHA ,~NEs 4) GO TO Jt 
7386 65 CONTINUE 
739° id ReSTJ/11 OR sea 
740¢ Ceoeee R + sTJ 
741° LYYTYP © 3 eee a ee — 
742¢ LvvPos = |} 
Sie. LV ENDER 0 0 — 
744° LVFUNC® STJ 
745¢ LYVARG® _—— — — = Z 
7460 CALL LVFIND(LVINOX,LVINOX,LVINOX,LVINOX) 
747¢ LY AAQ ® R — = =, 
746¢ IF (LVVAL.NEom1) LVI AAO ® LVVAL 
149e -LVYVIR © LVVAL ——— = 
750¢ LVVAL = -100 
751¢ IF (LYVTReEQe=1) GO TO | ee eS 
752e Coece LVI AAL ) R 
_783¢ R= LY AAQ eee eee B = 
754¢ RETURN 
755¢ CIF BOOLEAN PRIMARY JS AN ARETHMETIC COMPARE CONTINUE PARSING PRIMARY 
7560 70 IFCSTJ el Te OF RETURN 
7570 IF(TYPEt ,EQ@s 4) GO TO 75 Z 
7586 € ReSsTJ OR/11 
7590 Coece R + stv rs 
760° LVVTYP @ 3 
—Lbie. EVV POS 8 8 
7eze LVINOX # O 


7o3e LVFUNC® stv ro < 


Tere LVVARGe R 


Teee uva AAO © R 
Zale IF (LWWAL.ME.=1) Lyi AAQ @ LY¥VAL 
7680 Coeee Livi AAL 8 R 
2eee Roa ivi aad — = 
770¢ LVVTR © LVVAL 
—llie________siuval ®* #j99 
7?2e tF (L¥VTRLEQ.-1) GO TO ) 
22730 C RELATIONAL OPERATOR FOUND 
774%¢e IF(NDEP «EQ. OF RETURN 
2158 L¥VPOSe-LvvPOos - 
776e LVVTYPe 3 
— EO Se. + 
7766 LVOEST=® 2 
2198 twa AAO wo 1 ~ — 
780¢ LVTYPECh) @ 18 
7Bte LWVALS(1) a LI Aad 
762¢ LVOEST= 2 
—2a3e ev — = 
764% LVFUNC @ FUNCL 
278S¢e LVVARGe OPRAND ct 
7660 CALL LVNSRT 
7820 UF CLVVALSLI.O) CALL L¥EXITiLvvALy 
766¢ TFULVVALeL TO) RETURN 
—1828 RETURN 
790¢ c IF BOOLEAN VARIABLE OR CONSTANT, SET STATE TO STOP 
72ie8 25 RasltoP_ —-s Se 
7926 JSTACKSISTACKe! 
7938 STACK(JSTACK, 1308 es ===. = 
7940 STACK(JSTACK,2)20 
—19Se _ss—(C ST STACK Be eae 
796e STACK(JSTACK,4)89 
2 EE 40 TO it ss — is — - = _ 
796¢ C COMPARE TYPES ON BOTH SIDES OF RELATIONAL EXPRESSION 
7220 M0 IFC(TYPEL .€0. O .OR, TYPE) EQ. 2 .OR, TYPE} FQ. 33 GO TO BS 
800¢ ERRFLGae TRUE. 
—AQie CALL ERROR( 83,1, K0M2) 
802¢ TYPEIe-l 
—__83e  ¢ SIRING*HOL.,JI-STRING,STRING BRTYPEI@M@) 2 : 
804e Ceeece STRING HOL 
_BOSe _ LyvPos « = Se ae — — es . 
60660 LVVTYP @ 3 
ee 7) eee SC ee |e eres 
6066 LVVARGe STRING 
—AO9e CALL AVF INDiLY2 _am,iv2 AN,L v2 AOsLW2 AP) — 
6106 uve Aa@e STRING 
—BAlle__.______§_IF {LWWAL.NE,e3) LW} ~AAaM m LVVAL - - ‘ _ 
8i2ze Lvl AAY @ LVI AAg 
peers kf ewes x Te) eer eeeeeeeerr 2 | ee eS ee eee 
Bi4%e LVVADe-1 
—_AiSe si LYYTYPeo]d : — = e — — 
Blee LvvPOSsel 
five VU SERRE RG. = ‘ ———— —— 
8186 LVVARGSLVI AAY 
Re eee ee 


AAy @e LVI AAG 
_AAQ —SIRING aa —— ee 


~82z%e LVOEST= 0 oe 


8230 v AAZ « TYP 
e240 LvTYPEe(i) = 1 

_82Se CARS EDD oe AVE AAZ : : = —s 
8260 LVDEST= oO 

— Sere a SNe =) =a EEE : 
6260 LVFUNC © STRING 


—S829¢e RR h 
83060 CALL LVYNSRT 


Ce TF URVVAL eh Te) CALL LVEXIT(LVWAL) = ee ee eer 
832e TF(LVVALeLT2O) RETURN 
_8)3e 65 TYPEZeTYPE, es — ——— 
8340 Go TO 18 
e La] = ¥ R 
83660 90 IFCTYPEL EQ. TYPE2 ORs. TYPELCTYPE2 .EQ@e 2 .ORe 
_ 8370 __—_—* TYPEZ eh Tse O) GO TO 95 Ss = = 
8366 NisTYPELe) 
_ 8390 __N2eTYPEZe) = = = : ———— — 
8400 CALL ERROR(77,TYPECNIE) ,TYPE(N2)) 
B4ie ERRFLGeeTRUEs 
B42¢e 95 TYPEI#4 
A430 = —EVSEZE sf ees Sp aoa pee = 
6440 IF(STJ el Te OF RETURN 
_B49S5e CC STRING*HOL.AJI“STRING,STRING BOTYPEIOM) 2222222 ees 
8460 Cocce STRING ° HOL 
fSZ7e EP OS a — 
84660 LVVTYP @ 3 
— BSFe RYFUNC® WHOL a = 
6s50¢ LVVARG= STRING 
BSle CALL LYFINDE(LV2 -AQsL V2 ARsLY2 AS sh V2 2 6 a eee 
652e ivi AAw = STRING 


—__ @Sie IF (LY¥VAlL NEe,~oi) L¥i sss s LvvaAh 
6S4e Lvi AAY » LVI AA® 


_85Se  C5ocecee tv) AAQ = ___S TRING re =e — : —- 
8Sé6e0e LVVADe-! 
Sy ) . ee add ———— = —— espana 2 
6566e LvvPosel 
85960 LYFUNC® STRING 
860¢ LVVARGSLVE AAY 
Bole : Cf CORT LS 2 A SE ge eee ree ere ce ee ee ee Se 
862 tvi AAY we LVI AAG 
_Bb3e Coecee LVI AAO ss STRING _ 98 ———— ae — 
Bb64e LvOEST® oO 
8650 AVE AAD o TrPep 
8660 LVTYPE(1) @ 1 
8670. 24 F LVVALS(I) © EVE = =AAOQ oe ee 
66860 LvoEest= oO 
_ JG6FS . ae a OO 2 ee = 
6706 LVFUNC © STRING 
871¢e LVVARGOLV) AAY 
672¢ CALL LVNSRT 
8730 TF(LVVALeLT¢O) CALL LVEXITILVVAL) — 
67460 ITF(LVVALeL TO) RETURN 
875¢e GO TO t1 ee 
8760 C PARSE REACHED BLIND ALLEY=MUST BACK UP AND REMOVE PARENTHESES CREATED 
877¢ 999 JMsSTACK(JUSTACK,3) ax: 
8766 Ken 


6790 00 996 KKa Mad ~ ——— 


aN, 


¢ STRING *HOL K/P9S*STRING SI /996 OTYPEL 


= Ceece i | a 28 —————————EEEE————E————— 
LvvPos = K 
LYVITYP «= 3 
LVFUNC® HOL 
LYVARG® STRING 
CALL LVFINDILV2 AU,LV2 Avelv2 AB,LV2 Ax) 

— Av) AAM mw  — STRING — —_— - - 

IF (LVVALsNEomt) LVI AA® = LVVAL 


L¥¥TR m@ LY¥VAL 
LVVAL = -300 


IF (LV¥VTR,EQ.e1) GO TO 99s 
Ceoeee AVE WAL . STRING 
— 4VVPOS 9 — —_—__—_—— ——_—_—— — 
LVVTYP « 3 
LYFUNCe STRING 
LVVARG® Livi aa® 
CALL LYFINDILY2 AY,LV2 AZeL v2 ADL V2 Al) 
ivi AAY = LVI AA 
—A¢ge dK AL NE ed) Ly AAY« ivVvAL 
900¢ LVVTR @ LVVAL 
201e LYVAL a» -300 
902¢ IF (LVVTR,EQe-1) GO TO 996 
2030 Cee@eee Lv} aao a TYPES 
704e TYPE, «= LVI AAY 
—__ $954. ____._ GGT OSS —— x 
706¢ 996 Kekel 
_907e 995 CONTINUE 
70860 00 $986 I*UM,J 
gove Cc STRINGOHOL. ILL oLEFT -RIGHT) 
9106 Ccoeecee STRING ° WHOL 
SSS Ee —_—_{ 
9i2e LVVTYP « 3 
9ije ___LVFUNCe Se SSS son ee oe 
Vise LVVARGe STRING 
_91Se ——— CALL LYFINDILY2 A2,LV2 AI,Lv2— A4,.¥2. — AS) 
Giee vi AAY © STRING 
—Sile_.________IF iL WWAL,ME.ej3) iv} AAaY mo ivval _ 
91860 tvi asm =e LVI aay 
9199  Ceeese ivi AAL —— a LEFT on See 
9206 LVVADe-j 
__ 9218 a es = ——_ — re — 
922 LvvPOsel 
Ce ee a ee a ————————————Ee 
9240 LVVARGSLV) aa@ 
925@ CALL LYDLET — casas sta iene 7 ————— 
9260 tvi AAw ew LVI AAY 
9270 _ Co5o0oe ivi AL 2 RIGHT _ ai 
9286 LVVADe-1 
@29¢ LYVVIYP®=-) 
9300 LvvPosel 
ae) ee RIGHT = = 
9320 LVVARGeLVI aAa@ 
__933e ss CALL LV OLET =e = — 
9340 998 CONTINUE 
pees Xt ee a 
9360 LvvPos « 1 


9118 reer (3021 2 a — ee 
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| 
| 


: 
: 
| 
) 


~Vvyse LVVPUSe-LVVPOS 


_939e UC 
9400 LVVARGe OPRAND 
aye CAL RF EDL YZ _ Ao sh V2 APsLV2 ASsLVZ AM) 
age avi aave OPRAND 
_99ze AF AV Abe NEoe dD BYE = AAY © LVVAR ——— 
9440 Jwoe kv aay 
99$¢ T ET aces 
9460 uvi aay e OPRAND 
_997e CP OS 1 : z —— = 
9460 LvvTve «@ 3 
9990 CP OSe Lv YPOS ited 
9800¢ LVFUNCe Func2 
s _ — — = — = 
9520 LVVADe-) 
9$30e  . CALL LYDLET scasenctecuaeaiawaees 
sae Lvveos e@ t 
9$$e  _—-—s_—s bwtyrp 2 3 a 
9560 LVVPOSe-LvVPOS 
_9$70  __iveumee .- Fume) 
9580 LVVARGe Lv) aay 
_9sge WW ADO wh ee Re ee 
94e00¢ Caulk CVOLET 
—f4is_ LYVPOS @ 1 stipe 
9e2ze LvvTve © 3 
_9eje sk POSe-LyyPOS ee ‘ eee 
9640 LVFUNCe LEVEL 
_ RO he AAY = SS a 
9460 Lvva0e-t 
9660 60 TO 980 


9700 LvvPos « ' 


a) || eee 8 a es = — = = = 
e720 LVVPOS®-LuVPOS 
a>} LVFUNC® _ x = oe 
9740 LVVARGe OPRAND 
EE I ——e—E——E————EEEeE 
9760 ivi aay « OPRAND 
977° _1F (hVVALeMEoo) L¥d AAV © LVVAR 2 
e780 maRGS © LVI aay 
e = = i : a = 
9e06¢ LvvTveP e« 3 
962¢ LVFUNCe LEVEL 
2are es OPRAND = 
9a4e CALL LCVFINOULV2 GE ,LVv2 OF LV2 OG,LV2 6H) 
_99se Ch AY CO PRAND bear 
9860 IF (LVVALNEosI) LVI AAY © LVVAL 


__NbeP Tuo Lvi sey 
9e660 RETURN 


9a%e — _ ee ‘ 
9900 c RECOGNIZED FUNCTION-PREPARE TO SET TYPE OF ARGUMENTS FOR THE GNOEPTHO 
_99fe  ¢  _____ SUNCTION IW THES SVMF ate 
9920 1000 CONTINUE 
2930 NDEPTH®NDEPTHSL 
9940 NOEPSNOEP ot 
99$e SCARE SOQ ae wa 


EEE UnnENSI nnn 


9960 c ResTJsii GR 
2970 Leeeoe = SS c= SIs 
9960 Lvvtve =» 3 
2990 LY¥¥POS @ 4 — —— 
1000¢ LVINOX = QO 
1001e LVFUNC e STJ — a =. 
1002¢ LVVARGs R 
—1003e _____ CALL LVFIND(LMINOX,LVINDOX ,VINOX i WINDX) — 
1Q04%e uva AAY ® R 
100Se IF (LWVAL.NEsod) LE AaY a L¥VaL 
1006¢ LVVTR © LVVAL 
1n007e LY¥VAL © -100 5 
1008¢ IF (LVVTR.EQe-1) GO TO it 
—_1nOove ___ Ceeee ivi -AAQ ‘ “3 2 _ 
1010¢ Rs Lvl aay 
iMlie NARGSal : - = — — 
10120 c OPRANDIOPRAND BRTYPELG@,STRINGGBNARGSOB,ACTION B@NDEPTHOO) 
1013 twa AAY @ OPRAND : 
1014e Coeee LVI AAO OPRAND oo 
101660 tvi AAW o@ TYPEL 
401L7@ LYTYPE(I) m 1 ee —s = 
10166 LVVALS(I) = LVI AAw 
410198 LVOESTa gO — = eS : : ae 
1o2d6¢ LVVNVE @ 4 
—1024e __________4LVFUNC « DPRAND 
1022¢ LVVARGeLV) aay 
102308 CALL LYNSRY =e es — 
1024%e TFCLVVALeL TeO? CALL LVEXITILVVAL) 
1025e@ LF(LVVALsLI.O) RETURN = = 
1026¢ Ceeee LVI AAO STRING Ge 
—_1027e —___L_VOESTa 6 _ —_ = — 
10266 vt AAL © NARGS 
10290 LYTYPE(I) wm J eee = EP 
1030¢ LVVALS(1) #@ LVI AaAl 
AGate AYSEST=® 6 —_* + ; = 
1032¢ LVVNVL @ 1 
AQ3je —LYFUNC © _SIRING 
103% LVVARGeLVI AaY 
1035¢ CALL LYNSRT . Poe =. 
1036¢ TFC(LVVALoL T6460) CALL LVEXITILVVAL) 
1037¢ IF(LVVALeL T.0) RETURN - — ieee = 
1036¢ Ceece LVI AAO ACTION oo 
10390 = LWYDESTs QO 
1040¢ ivi AA2 @ NOEPTH 
—£8S5e LVTYPE(A) @ OL ———— nee = = a 
10420 LVVALS() © LVI AA2 
_1O4je  _ LYDEST=s oO pont — a — 
10446 LVVNVL @ 4 
—1O4SS5e UNC CAC TION 
1046¢ LVVARG*LVI aay 
1047¢. : CALL LYNSRT ——— crcl alee acon 
1046¢ TFCLVVALeLT6O? CALL LVEXITILVVAL) 
1049¢ AFA(LYVALsL TsO) RETURN ee = nee 
1osae Cc QPRAND FUNC! @85+160 
ae tT ee es ee | ee 
10S2¢ LVDEST® oO 


AQS3¢ —~ AWA AAY « 0 _ en — 


TUSte LVTYPE(I) = 1 
Se VyA es LV ae} 

10Sée LVOEST® 9o 

4Q057¢ LVYNVL os J : er a 

10S6¢ LVFUNC @ FUNCE 

A059 LYVARGe OPRAND Pp ee ee ae —= 
1060¢ CALL LVNSRT 
Ey —————_—————E—————— 
1062¢ IF(LVVAL +L 720) RETURN 
_1Dbje ___I1YPElest ee “ Se ~ Ais 
1064%e c NOPARGNOPAR?I 

AQese as NOPAR®NOPARCL ee = = — 
10666¢ RETURN 

EN —— 

1066¢ C KEEP TRACK OF THE NUMBER AND TYPES OF ARGUMENTS IN FUNCTION CALLS 

A069e | ¢ MUST USE STACK FOR POSSIBLE RECURSIVE FUNCTION VSE 4 

1070¢ 1100 CONTINUE 

AO7le  __siALWYTYP @ 3 : = - See ae 
1072¢ LvvPOoS © 1 
Be ES ee ———————————————EEE————EE—E———E——S = 
1074e LVFUNC® stv 

AQ7Se LYVARG® R oe a ee 

1076¢ CALL LVF IND(LVINDX,LVINOX,LVINOX,LVINDX? 

1Q77¢_ LVI AAI = R ree aac -: 

10766 IF (LVVAL.NEomt) LVI AA © LVVAL 

1079e .._LYW¥TR # tyval — Se. ee 
10860¢ LVVAL © -100 

AQBle = iF (LYVTR.EQe-1) GO TO a. 

1082e R =e lvl AAJ 

DT ee eS ee SS 

1064%e LvvPOos = 1 

a eee ee ee 

1086¢ LVVPOS#-LvVPOS 

AQa7e LYFUNC® STRING apace —_ 

10666 LVVARG® Lvi AAJ 

1067e CALL LYFINDILV2 BlslLv2 BJsbv2 BKaLv2 BL) — 
1090¢ ivi AAW = LVI aa3 

1092e Lv¥vVTR @ LVVAL 

AQ93e = LVVAL © 100 — s a — 

1094e IF (LVVTR.EQe=1) GO TO 1103 

109Se Ceeee LVI AAU @ NARGS — 

1096¢ NARGS «@ LVI aad 

1097¢ _Coeee LVvi AAT : o _ STRING i 
10966 LvvPOosS © 1 

_£099e LVVTYP «@ 3 — 

110064 LVVPOSe-LvVPOS 

guote = FUNC STRING horas eee sae wm 

1102e LVVARG® Lvi AAJ 

1103¢ LVVADe-5 — 
1104e CALL LVOLET 

110Se Ceeee LVI AAT - ACTION Fs 

11066 LvVvPOS «= 1 

1107¢ LVVTYP « 3 — 

1106¢ LVVPOS#-LVVPOS 

a) eee A ee a a 
t1io0e LVVARG® LvI AAX 

Alile CALL LVFINO(LV2 BMsLVv2 BNsL v2 BOsLVv2 BP) 


1iize uvi AAG w@ LVI AAZ 

Eye __-_—- IF (LVVALeNEo=i) LY} AAY = LYVAL = = ae 
1ii4e Ceeee LVI AAU 3? NDEPTH 

LLise MFUNC = L¥3 rv} 

lliee LvVPOS = ’ 

biize uvvtye * 3 

tee LVVPOS®=LVVPOS 

4iige ve ce guy 

1120¢ LVVARGS OPRAND 

i2ie CALL L¥FIND(L¥2 8Q,Lv2 BR,LV2 BS,L¥2 st) 

11226 uvi AAZ = OPRAND 

s4230 UF GLVVALNESmED UE AAS = L¥VAL 

1i24e I1EXP = LVI AA’ 

4425  _¢4403 ReStysii ge 

11266 1103 CONTINUE 

si27e C STORE ARGUMENT TYPES = ee ae — 
11286 IF(NOEPTH .GTe 5S) CALL ERROR(8S? 

$1298 IF (NDEPTH .GTs S$) 6O TO 1430 = = - = = 
11300 IF(NARGS oLE. 63) GO TO 1104 

Jijia_.________—ERRELGm.TRUE. 

Lt32e CALL ERROR( 84, NDEPTH,KON2Z) 

i330 Go To 48 : = = 2 =e 
bi34e 1104 CONTINUE 

11350 MMa(7eNARGSI/4 : ee es ee = 
113660 ITEMPSNARGS=40(MM=2) 

SS EE ————————————E————————EE—————— SS 
11386 NARY(MFUNC MM) @BITPUT(NARY(MFUNC MM) »MOD((TYPELO1) 56) ,1COL? 
44390 LECSTRU S22) oMEo =6 AND. STR Ju2) NE. 9-4) 6O TO 1430- ——— 
11406 NDIM@GETOIM(STRIJ=1)) 

iaie JE(MOIM .6Es 4) GO TO 41139 ee =a 
1n4ze C STORE DIMENSIONALITY OF ARGUMENTS 

44-430 ________WARFLMEUNC  ~ MMP SBLTRUTINARYEMEUNC HM ~NOLM ECOL OS} 
114946 1130 CONTINUE 

44450 = MARY MEUNC MM) OBI TPUTINARY (MFUNC MM), TEXP,1COLes) 
114660 IF(STJ e€Q@. COMMA) 6O TO 1105 

+3a2e MARYLMEUNC 4) SN ARGS S = = ee 
119860 tvi AAS « OPRAND 
se 
11506 LvvTve = 3 

g2Ste LVvPOSmetyyPOS — E 
11S2e LVFUNCe ACTION 

44530 AVVARGm Lys AAS =i 

11546 LVVADe-1 

+44sSe ______— Cart svOigr 

11S66 LvvPos © 1 

411S7e TYP og = 

11886 LVVPOS*=LvVPOS 
1189¢ ss UC OPRAND — 

1160¢ LVVARG® LVI AAS 
Aisie CALL AF IND GLY? Auaiv2  _Av,tw2  @@,ivy2 8x) 
11620 uvi AAS e LVi AA’ ; 
Aisie ss AAW AL NEod) Lv AAG © LYWAL * 
1164e LVVTR © LVVAL 

AieSe A oo : = 

1ieee IF (LVVTR.EQe-1) GO TO 1135 

BY? | ees 21) ee Se ee eee 
116860 Livi AAy@ OPRAND 


Als?s CP OS — = 


J 
24 


tl70e LVVTYP = 3 


LEP ES __bV¥POSe-tLyYPOS _ a 
1172 LVFUNC® FUNCI 

1i73¢ LVVARG® LVI AAJ 

1i74e LVVADe-1 

LL7$¢ CALL LVOLET 

11760 LVVPOS «= 1 

Po!) ee 6) a ee = = 
1176¢ LVVPOS*#-LvVPOS 

L179¢ LVFUNC® QPRAND 

1180¢ LVVARG® LVI Aad 

116l1e LVVADe=1 — 

1182e CALL LVOLET 

AlfBje _—-_— A135 NOPARSNOPAR@-1 — ai = == 
1184e NDEPeNDEP~} 

4118S RETURN ee. : ee 

1166¢ 1105 TYPEle-t 

LiB7e c STRING*HOL. Ji =STRING,STRING S@TYPEIBS) 

11666 Coeee STRING ¢ HOL 

£2596. __LSupos 2 a =: 
11906 LvvTve « 3 

Li?le LYFUNC® HOL eee Gove 

1192e LVVARG® STRING 

L1gje CALL LYFIND(LY2 BY,LY2 BZ,L¥2 ___ BOsL¥2 Al) 
1194e tvi AAXY # STRING 

11950 1) ee yee ee EE Ee ———————————— 

1196¢ vi AAW @ LVI AA3 

1197¢ coeee LVI AAU : STRING 

11986 LVVADe=1 

1199¢ LYYTYPe-tk 7 = ee aie 

1200¢ LVVPOSe) 

A2Obe UNC STRING Eee. 
1202¢ LVVARGSLVI AA 

120j¢ CALL LVOLET 

1204¢ ivi AAS w LVI AAs 

1205e¢ Ceeee LVI AAU STRING aa 

120606 LvOEsST® oO 

A207¢ Lh AAS » TYPE ce é a 
12066 LVTYPECS) = 1 

12096 LYVALS(1) » LYE AAS ~ 

12106 LVDEST= oO 

A2i1e LYVNWL ®@ 48 = —= ws 

1212¢ LVFUNC ® STRING 
-2i3@ AW ARGOL VY Aw a — 
i2i4e CALL LYNSRT 

121S¢ TFC(LWVALoLT.O) CALL LVEXIT(LVVAL) _— — = 

12b6e IFCLVVAL +L 760) RETURN 

12170 NARGS#@NARGS¢1 Siete ie 

12180 Ceeee LVI AAT STRING iT) 

AZ SS. EES ES 

1220¢ Lvi AAS « NARGS 

1221¢ LYTYPE(t) @& 1 . 

12220 LVVALS(I) @ LVI AAJ 

12236 LVOEST= oOo ‘ 

1224¢ LVVNVL ® 1 
a) LYFUNC = e340 1 | 

12260 LVVARGe OPRAND 


1227¢ CALL LYNSRT =a i —— 


12266 TFCLVVALeLT6O) CALL LVEXIT(LVVAL) 
A22¢e CCW TO) RETURN 


12306 Ceeee FUNC) 1 

i23ke L¥¥POSmeeci y¥POS = = 

t232¢ LVVTYP= 3 

423308 Lv¥yPOSe ry — 

123460 Coecee ivi AAT FUNCI oe 

4235e______4ypeste# 32 = = ae 
12360 ivi AA@ = 0 

42320 LVIYPE(I) wm 4 ———— = 

123660 CVVALCS(I) © LVI AA4 

42398 LV¥DESTa 2 — 

t290¢ LVVNYVL © 4 

+241le LU FUNCY _ 

12426 LVVARGs OPRANO 

12430 CALL LYMNSRYT _ _= 

129460 TFC LVVALeL TeO) CALL LVEXIT(LVVAL) 

424950 SECLYVAL.LT.O) RETURN _ 

12460 RETURN 

+2ale _¢ SAVE TYPE OF STAEMENT SHILE PARSING EXPONENT — Se 
12966¢ 1200 CONTINUE 

42490 C __STRING*HOL Ji eSTRING, STRING SBIYPEIS@) — 

12506¢ Coece STRING + HOL 

42540 ——4¥¥PQS 2 J - ——— 

1252¢ LvvTYP «= 3 

42530e_—_______1LvFunCa OL — = 
1254¢ LVVARGe STRING 

4258S CALE LYFINDILV2 82,L¥2 B3,L¥2 __ B4,L V2 $5) 

12S56¢ ivi AAG ® STRING 

12S7e IF (LVVAL NEso$3 LVS AAS @ LY¥VAL 

12586 Lvt AAy = LVI AA6 

42598 Casee Lv} AA - = STRING ee — — 
12606 LVVADe-! 

42618 meee 0) A 2) ee —s 

1262¢ LvvPosel 

12630 = LYFUNCS STRING a 2 a —— A 

1264e LVVARGeLV] AAT? 

41245e _______CailL LYOLET = 
12660 vi AA? a LVI AAG 

12470 Coeee LVL AAX STRING -|- porcine =e 

12680 LVOEST= oO 

1249¢ = : tv AAB = TYPE} SE = 4 
1270¢ LVTYPEtI) © 1 

+2240 —____LWVALS(})}) «» L¥j  __ agg 

1272¢ LVOEST= 9g 

4273e AW gg = = 
12746 LVFUNC «= STRING 

427Se ss LV VARGOL YY AAL 

1276¢ CALL LVNSRT 

4227e NF UL VWAL SL T.O) CALL LVEXITiivWaAL) _ 
12766 IFC(LVVALeLT2O) RETURN 

$2796 TyPpEiset — a — = = 

1260¢ (3 ResSTJ/II OR 

i2fie- Coeeo = — == SEE ponent i = = 

1262¢ LVVTYP = 3 

12hj0 dL vvPOS 6 4 

126460 LVINOX # QO 

S2666 000. VE UNE __StJ aaeenetoees zoe =e 


126 


merit y) LVVARGe 


_ Lze7e VFI VINOX x NDX 
12880 uv AAs = R 

12890 e LF (LVVALeNEo=t) LvE _AAd = LVVAL = # 
12900 LVVTR © LVVAL 

12910 LYvaAL = -190 ) = a ee teas 
12920 IF (LVVTRLEQe=1) 6O TO i 

—129,e __Coeee ivi sat __@ Ss ee ee 
12940 Re Lv AAG 

_129Se COMPLETE! She 52 ee ee = = eee 2 
12960 RETURN 

_4297e 1300 CONTINUE ———— ae = 7 ~<s = 
129860 IF(STJ el Te OP RETURN 


13006 LVVTYP © 5 


Lidie | fae SD) ee te 2 = a 
1302¢ LVINOX = QO 
—_tagje CAI sti = = == - : = = 
130460 LVVARGe R 
—AoSe CALL LVF IN OIL VINOXGLVINDXLYINOXLVINOKP 2 00 
1306¢ vi AAé ® R 
__A3o7e  _—_s_—siAF (LVVALaNEo=i) Lyd AAS © LVVAL == eee - 
t3086¢ LvvTR © LV¥VAL 
___13096¢ —_ LYVAL = -100 —— ee = . = 
1310¢ IF (LVVTR.LEQe=t) GO TO a 
—__Lille— = _R = twa Abb 2 = = 
i312e IF(NOEP cEQe OF RETURN 
Abide  € LOGICAL OPERATOR FOUND a es : = 
13140 LVVPOS*-LvVPOS 
A31S¢ LVyTYPs 3 = : —— SS 
131660 LvvPOs® 1 
ee 2) ee ee eee 
13186 ivi Akg ot 
Li19e AVTYPECE) w | — ee = a = 
1320¢ LVVALS(I) = LVI AAe 
— ASSES. DES ES. 2 as = = a ee 
1322¢ LVVNVL © 1 
Lizze LYFUNC «= a= 
1324¢ LVVARGe OPRAND 
1325¢ = SU  ) a ———— 
1326¢ TFCLVVALeLToO? CALL LVEXIT(LVVAL) 
Seis, __TF(LVVALeL TeQ) RETURN Se eS ee = 
13266 RETURN 
___1329¢ 1900 CONTINUE 
1330¢ LVVTYP =» 3 
— NSE __LVvPOS = 4 = EEE = 
1332e LVINOX = 9 
‘§333<e AVFUNCe i ee = 7. = : 
13346 LVVARGe R 
—Lidse CALL LVF INDI LVINDX aL VINDXLVINDXLVINDX) 
133660 ivi AAT © R 
13376 IF (LVVALQNEom1) LVE AAT @= LVVAL 
1336¢ LVVTR = LY¥VAL 
1339¢ LVVAL = -100 2s 
13406¢ IF (LVVTR.EQe=1) GO TO in| 
s AAT 
1342¢ Cc CLEFT PAREN FOUND IN 1/0 LIST 


_Ad43¢ NFLAGSNFLAGS) ee 


1344e FLUNFLAG) SMARGS 


ae | eee 1 a aa a 
134660 1500 CONTINUE 
1347¢ LYVTYP =» 3 
134860 LvvPos = 1 
13490 LV¥INDOX = O 
135060 LVFUNC® sty 
Be SSN EEE a 
1352e CALL LVFINO(LVINOK,LVINOXK,LYVINOK,LVINDK) 
43530 ova AAT = R 
13S4e IF (LVVALeNEomI) LVI AAT @ LVWAL 
33550 L¥VTR = LVVAL 
135660 LVVAL © “100 
—=taG te Te LVR Ee ea hi 60-70 eg = 
135660 R= LVI AAT 
13598 IF(STJ .£Q. COMMA) RETURN 
1360¢ Cc RIGHT PAREN FOUND IN 1/0 LIST 
43618 NFLAG@NFLAGe|j 
1362¢ RETURN 
—43630 4600 CONTINUE = = 
13640 TYPEI#4 
+3658 RETURN 
136660 1610 CALL ERROR(95,1DM1,10M2) 
13678- Stop 
13666 25000 CONTINUE 
waver L¥2AeQ = — 
13700 LV2B80 
432,00 Ly2cao 
13720 Lv200 
13730 LV¥2Ea0 - 
137460 LV2FeoO 
—+37250e—___4¥26a9— 
13760 LV2H#O 
3778 _______4v2tag— ee = 
13760 LV2J0e0 
43798 b¥2Ka0 = ee 
1380¢ LV2Le0 
SEA ee 
13626 LV2Ne0 
pees kU renee ae 1): eras : : 
13640 LV2Pe0 
—ljase Ly2Q00 ——— ee E 
1386¢ LV2R#0 
136660 LV2T#O 
LAAge re AS AS 1: a eee = 
13900 LV2¥#0 
Avie : LY2a80 
13926 LV2x80 
al (|, ik] eerenerenee! 5 Ar |: een ee ee ee ae 
13940 LV2z*0 
| eee 51) = 
13960 LV2180 
AR97@ en = 
13960 LV2390 


1900¢ LV¥25e0 


LV27*0 


L403¢ bV26=0 ape 
ys04%e Lv¥299e0 
140S5e LVZAA%0 
140660 LV2AB20 
isg7e LV¥ZAC#0 
140660 LV2a0¢0 
1409¢ _V2AE#0 
14106 LV2ZAFe0 
i4ite LY2AG#0 
1412¢ LV2AHs0 
1413¢ LY2ZAL*0 — 
1414¢e LV¥2aJ20 
14159 AW2AKsQ = 
14tb6e LV2AL20 
19179 __LY¥2Ame#D 
14186 LV2AN®O 
et L¥2a0s0. 
14206 LV2AFe0O 
14210 Lw2aQe0 
1422¢ LV2AR#0 
14230 — L¥2aSe0 
14246 LV2AT#O 
1425¢@ L¥2aUs0 
149260 LV2Avs0 
re27e LY¥2ams0 
14280 LV2Axs0 
1429¢ LY2ZAY=s0 
14306 LV2AZ20 
a4ate sh 2AD80 
143260 Lv2af#o 
es 
143460 LV2A380 
1435¢ _LY2A4%90 
143660 LV2a5e0 
PAF e —__- Lv¥2a6s0 
14386 LV2a720 
CCC oo 
14406 LV2A920 
194ie LY2Baso ee: 
144260 LV28820 
14430 __Lv2BC#0 
1494460 LV26020 
Ces 2) 
144660 LV28F 20 
14470 LY28G=0 
14986 Lv2BH=0 
24999 _LY2B1s0. 
1450¢ Lv28Js0 
(Ul ee Ol rr 
1452¢ Lv2BL 20 
14536 LY2BM=9 
145460 Lv28N#0 
145Se_ LV2809Q9 
145660 LV28P20 
e 1} s 
14586 LV2B8R#0 
14590 L¥26S20 _ 
14606¢ LvV28T=0 
es 
14620 LV28Vs0 
14630  _—s LV 28ffaQ 
19646 LV28xX20 
14450 — __L¥2BYao 
146660 Lv28z20 
49o7e BQ 
149eBe LV28220 
146Se L¥28300 
14706 LV284s0 
14710 Lv¥285e0. 
14726 6oO TO 25001 


£nD 


le SUBROUTINE SEPAR SEPAR 2 
ze COMMON A(1326)50(500) + 10TBL (8,500) ,INITIO(3) LASTID(3)sISRCH(3), RICK 2 
— sNATIDIDTYPsNID LOC, SS 
4e 2 LTYP,ITYP,IBLKDT,MODE,IERR,IDES RICH 4 
Se COMMON/FORMAT/IDESST,LOESNDsIGPSTsIGPNDsIGRP,SEPST ys SEPNDy 
be 1 OIR,ICOM,ISEP SEPAR 5S 
Je INTEGER A,SEPST,SEPNDyOIR, BLANK »SLASH,COMMA SEPAR 6 
Be OATA BLANK/1H /,SLASH/IH//,COMMA/IH,/ SEPAR 7 
ge _\comeg Meg day ee PD . SEPAR 6 
10¢ ISLASH#0 SEPAR 9 
lie 00 20 I81,N SEPAR 10 
ize JJSSEPST*DIRe( 1-1) 
i3e¢ ITF(A(JJ) sEQ@e BLANK) GO TO 20 Sas SEPAR 12 
I4e IF(AC JJ) .EQe SLASH) GO TO 5 SEPAR 13 
15* IF(A( JJ) 2EQe COMMA) GO TO 10 a. SEPAR 14 
16e GO TO 30 SEPAR 15S 
17° S CONTINUE SEPAR 16 
1860 ISLASH®1 SEPAR 17 
ive IF(ICOM cEQs 3) GO TO 40 = SEPAR 16 
206 GO TO 20 SEPAR 19 
210 1D TFC USLASH .£Q@s 1 ,OR, ICOM sEQ@e 1) GO TO 40 = SEPAR 20 
22e 1cOmM=} SEPAR 21 
230 20 CONTINUE “ SEPAR 22 
240 GO TO 40 SEPAR 23 
250 30 IFC ISLASH .£Q06 0 sAND,s ICOM s£@e. 0) GO TO 35° —>- __ SEPAR 24 
2660 ISEP®) SEPAR 25 
27e SEPNO#JJ-DIR 
266 RETURN SEPAR 27 
290 35 CONTINUE SEPAR 28 
306 ISEP#O SEPAR 29 
—ie SNe —— SEPAR 30 
32e RETURN SEPAR 31 
330 40 ISEPaerl SEPAR 32 
34e RETURN SEPAR 33 
350 END SEPAR 34 


— =—— + 


le SUBROUTINE SIMP SiMP 2 
—_2e COMMON AL1326).01(500) s LOTAL (8.500) sINITIDOI3) LASTIOIF) ,ISRCH( 3), RICK 2 
3e © JPTRIN SM, JTYPSLSTART N21 FNCNM,LOGID,NXTID,IDTYP,NID,LOC, 
4e A_LEYP ETP TOLER DE MODE  REGRTOES RICH 4 
Se COMMON/BASBLK/ IBLOCK (2500) sNBLOCK NB »NBRNCH 
ae DIMENSION LALPHI(7),1ALPH2(9) ,1ALPH3(S) sTALPH4(10) ——_— SNP 5 
Te DATA CTALPHIC TD Feds 7)/IHRe THES THT, IHU,IHRG IHN IM /, SMP 6 
fe LT ALPH2ZC 1 Tel PI/JIHC IMHO. IHN IMT IMI, LHS IHU THE IM /, S1MP 2 
Ge 2 CLALPH3CT) s 181.5) /EHS,IHT»THO,IMPLIM / SIMP 6 
1Q¢ 2 CTALPHACL os Lel, 1Od THB IMLS THOSIHC IMR s LHD, IHASIHTSIHASIN / SIMP a 
lle IFCITYP «€Q@+ 10) GO TO 25 SImP 10 
ize IFALTYP e£Q@e 7) GOTO 15 = SImMP_ Li 
I3e IFCITYP s€Qe 2%) GO TO 35 SIMP 12 
se. OO 19 Lei,7? eo SAMP 13 
1Se IF CNEXT(JPTR) oNEs TALPHI(1)) GO TO SO SIMP 14 
loe 10 CONTINUE = SIMP IS 
17e NBs! SIMP 16 
18e NBRNCHeI SMP 17 
190 NBLOCK@NBLOCKel SIMP 186 
—___2Q¢ ss BLOCK (NBL OCK) #999 —— SLAP §9) 
2le RETURN SIMP 20 
22e¢ 15 00 20 I#1,9 Se e SIMP 2) 
2360 IF (NEXT(UPTR) «NEs TALPH2(1)) GO TO SO SIMP 22 
—.24e 20 CONTINUE SP 23 
25e RETURN SIMP 24 
Zoe 25 DO 30 Ial,S E aie —— SImP 25 
276 IF (NEXT(JPTR) eNEe TALPH3(1)) GO TO SO SIMP 26 
280 30. CONTINUE oa -SIMP 27 
290 NBal SIMP 28 
300 MBRNCHes ee SIMP 29 
dis NBLOCKSNBLOCK+1 SIMP 30 
ize IBLOCK {(NBLOCK) #999 = —— SIMP 31 
3360 RETURN SIMP 32 
34a 35 00 40 Iei,10 ee es i SIMP 33 
350 IF(NEXT(UPTR) eNEs TALPH411)) GO TO SO Sime 34 
148 __ 40 COMTESUE —_ SMP 36. 
370 RETURN SIMP 36 
380 SO CALL. ERROR(7,KOMI,KDM2) ss — pricks 
39° RETURN SIMP 38 
400 Eno - Simp 39 


te SUBROUTINE SLEVEL(FAIL) 
2e COMMON/LVARGS/LVFUNC ,LVVARG ,LVVAD,LVVPOS»LVVTYP,LVVAL, 
a ___ @LVHEAD pL VYNVL aL VOESTLVVALS(10) LVTYPE( IO) sLVSKIP 
4e COMMON/LVTABL/LVTSIZ,LVMAPI L)/LVVSEQ/LVSIZE,LVSQSP( ie 
Se COMMON /NEED/ START,ASSOC,LEVEL,STOP 
be COMMON/NEEDS/STJ,JSTACK pRypJAS oJ, JLAST ,RTIEMP,STACK(400,4) 
7e COMMON /STRING/ NNN(2),STR SS 
Be COMMON /JL/ JSTOP 
ge INTEGER STARTsSTOP ASSOC STACK sSTRi tp sSTIsRaRTEMP 
ioe LOGICAL FalIL 
lhe ( EXECcuTe 
12 GO TO 25000 
13e¢ 25001 CONTINUE 
i4e RTEMPsO 
a bE STOP RISER = 
lée 10 IF(USTOP .EQ- OF GO TO 40 
i7e NPNTR@STACK(JSTOP 24) 
18e IF(NPNTR .GTe @) sO TO 20 
19e _______IFI(STACK(JSTOPs2) sNEe O) GO TO 30 —— 
20¢ JSTOP#JSTOP=1 
2ie GO TO 10 
22¢ 20 JSTOPsNPNTR-I 
23¢ GO TO 10 n — 
24e 30 STACK(JSTACK,4) eJSTOP 
25e JASaSTACK{IUSTOP,2) — 
z6e ReSTACK(JSTOP,1) 
278 RIEMPaR = 
28¢ Cc R*LEVEL JAS OR 
2908 Ceeee R e LEVEL = == 
30¢ LVVPOS «@ JAS 
—_31.a— Lvytyp =« 3 “i 
32e LVFUNC® LEVEL 
338 LYVARGa R = — 
34e CALL LVFINDILV2 AsLV2 B,Lv2 CeLv2 0) 
358 ovis AAD = R SS 
360 IF (LVVAL.NEoot? LVI AAD ® LVVAL 
—__3 Ja _Caesee iv} AAD — Se 
380 R «LVI AAD 
Ave FAIL moFALSE. = ———————EeE = 
406¢ IF CSTACK(CJSTOP,4) el Te OF STACKI(USTOP,4)80 
Sle RETURN = ———— = 
42¢ 40 FAIL®. TRUE. 
430 RETURN = 
44e c COMPLETE 
4Se 25000 CONTINUE SS eee - 
460 LV2A20 
47@ LV¥2620 . = os 
46e Lv2c#0 
Soe GO TO 28001 
Sia END - — —— — 
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le SUBROUTINE SQUEEZ 


ze COMMON A(1326).0(500) sLOTBL (8,500) pINITIO(3) gLASTIO(3IgISRCH( 3), RICH 2 
3e © JPTRIN SM, ITYP,LSTART »NZ2eTFNCNM,LOGIDsNXTID,IOTYPsNID LOC, 
—4e 2 LTYP,ITYP,IBLKDT MODE JERR, IDES RICH 4 
Se INTEGER A,O,BLANK,AICH SQUEEZES 
ee OATA BLANK/IH /sAICH/IHH/ SQUEEZES 
Je Ja0 SQUEEZES 
ge 00 10 Lei, > == SQUEEZE7 
9e IF(O(1) e&Qe BLANK) GO TO 10 SQUEEZES 
—_1Oe dete d — = SQUEEZE? 
lie O(yreot1) SQUEEZIO 
i2e LF(OCJ) sNEe ALCH) GO TO 30 — = SQVEEZIIL 
I3e IF(UTYP «NEs 3) GO TO 10 SQUEEZI2 
i4e MamMeJad - = z = __SQVEEZI13 
1Se RETURN SQUEEZI4 
— ee. SPC ONEIRUE 2 ee - SQUEEZIS5 
17e MaJ SQUEEZI6 
18¢ RETURN = Ee _____S@VEEZI7 
19e END SQUEEZIL6 


ie SUBROUTINE SSTOPIFAIL) 


ze COMMON/LVARGS/LVFUNC ,LVVARG,LVVAD,LVVPOS,LVVTYP,LVVAL, 
——_—_3a_____#LVHEAD,LVVNVL,LVDEST, A VVALS(IOI LWIYPELIOJ,. ¥SKIP = 

4e COMMON/LVTABL/LVTSIZ,LVMAP( P)/LVVSEQ/LVSIZE,LVSQSP( i) 

Se COMMON /NEEDS START, aSSOC LEVEL ,STOP oe = 


be COMMON/NEEDS/STJ,JSTACK Ry JAS oJ pJLAST,RTEMP,ST (400,4) 
ee ¥ COMMON /STRING/ NNN(2),STRo 0 —E 
Be INTEGER START,»STOP,ASSOC,STACK»STRU 1) »STIR, TEMP 
— 1 LOGICAL Fall = 
ioe (5 EXECUTE 
Lie GO TO 25000 : ee 
i2e 25001 CONTINUE 
__._Lje JSTOPSsJSTACK = Se eee ee See 
i4e S S ReaSSOC/ia 
SS ST SE eee 
lee Coeee R + assoc 
ee Yt — Lv¥vTYP # 3 — - SS en ereee sees = 
166 LvvPOS = 1 
— EFS ___bVINOX = Q = 
20¢ LVFUNCs assoc 
cee! Ca __ bVYVARG® R —— ee ee = = 
22¢ CALL LVFINDILVINOX,LVINDOX,LVINOX,LVINOX) 
23e Lv. AAD = R : ee 
240 IF (LVVAL.NEom1) LVI AAD ® LVVAL 
260 LVVAL = -100 
_27¢_ LF (LVVTR»EQ@em1) GO TO _ 7 
28¢ JSTOPS#JSTOPS#1 
Z7e_ STACK(JSTOPSs1)#R = Sa 
306 STACK(JSTOPS,2) #0 
eee | Cs -STACK(JS5STOPS.4)80 
32e c 10 Ri sSTOP//20,*+STOP/30 BR/5/5) 
3je 10 CONTINUE = Pet ee : c= 
j4e vi AAO # R 
ase Ceeee LVI AAD = s Se SS 
360 LVVAL = -100 
—— AZ AF (ivi AAD,NE, _ STOP) LYVAL @ =] 
366 LVVTR @ LVVAL 
39¢ LY¥VAL = -300 —- — 
406 IF (LVVTR,NEo=1) GO TO 20 
4ie Ceeee Lv) AAD + SToP 
42e LvvTYP # 3 
pat -Lv¥vVPOS # 4 = eis ot Cs a Sr ee 
44e LVINOX # O 
4Se LYFUNC® STOP 
460 LVVARG= Lvi AAD 
47¢@ CALL LVYFIND(LVINOX,LVINDOX,LVINOX,LVINDX) 
480 LVIAAL*LVEAAD 
——4@e AL NE ot) LV AAT OL VAL 
soe LVVTR = LVVAL 
Sle LY¥vAL = -100 
S2e IF (LVVTR,EQe-t) GO TO 30 
Sie Ceeee LVI AAF a R 
S4e ReLVIAAI 
SSe EEC TRS AR, = a ee 
Sée LVVAL #® -100 
S7e IF (LVVTReEQe=3)? GO TO $ 
S6e IF (LVVTR.NEs@1) GO TO Ss 
S9e 20 FAIL eoFALSEe 


606¢ RETURN 


ole C30 JSTACKsJSTOPS/40 


62¢ 30 CONTINUE 
o3¢ Cecoce JSTACK s JSTOPS 
64e LVVAL = -100 
65e IF ¢ JSTACKeNEs JSSTOPS) LVVAL = =J3 
660 LVVTR © LVVAL 
hye LYVAL = -100 — 
68e IF (LVVTR.EQe=1) GO TO 40 
ove FAIL @eTRUEs 
70¢ RETURN 
7he 40 ReSTACK(JSTOPSs1) 
72e JAS@STACK(JSTOPS,2)¢1 
_lie_ wal ReaASSOCeaJaS MIEMP//50 3 
74e Cocece R ° Assoc 
75¢ LYVYPOS = YAS 
760 LVVTYP « 3 
a) | eee A td SS — —— ee 
78¢e LVVARGs R 
79° CALL LYFIND(LY2 AsL¥2 BalLy2 CaLv2 Q) 
e0¢ ivi AAD «= R 
Ble IF (LYVAL.NEs=1) LE aa0 @ LVVAL 
82e Coeee LVI AAD -) TEMP 
Bia =: — TEMP »o LV} aad ——— —- — 
B4%e LVVTR @ LVVAL 
B5ea L¥VAL = ©4300 
bbe IF (LV¥VTR.NEw1) GO TO so 
B70 JISTOPSaJSTOPS<1 
ese ( 4730 
—e9e LV TR ow Ly yay = =n = 
906 LVVAL = “100 
Pie IF (LV¥VTR.NEs=1) GO TO 30 
92¢e $0 STACK(JSTOPS,2)8JAS 
930 Cc RalEMP//40 
94e Cocece R s TEMP 
—_95a AVVAL m ©3990 
96e IF ¢ ReNEo TEMP) LVVAL ® <1 
270 LYVTR # LYVAL 
966 LVVAL = -100 
29e IF (LY¥VTR.NE.-t) GO TO 40 
1o0e¢ ¢ TEMP BR//5 
aoe) lt eee! Yee i! a ie ——— - = = 
1o2ze Rs TEMP 
1O3e LY¥VTR @ LYVAL 
1o4e LVVAL # ©100 
10S5e@ IF (LYVTR.NEs=1) GO TO s 
10é¢ Cc COMPLETE 
—107e RETURN — ee = ee = 
106e 25000 CONTINUE 
109a Lv¥2ae0 
i10¢ Lv26e0 
tite Lv2c*o 
1ize Lv2020 
tije GO TO 25004 - — — — _ 
tide ENO 


SUBROUTINE STATNO 


a gn cr gh n= tn te at nd A 


STATNO 2 


2° COMMON A(1326),0(500),10TBL(8s500) pINITIO(3),LASTIO(3),1SKCH(3), RICH z 
3e © JSPTRaN Ms JTYPALSTARTINZ a LFNCNMLOGIONXTIO,IOTYPsNID,L OC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERK,IOES RICH 4 
Se COMMON/LABELS/STATRA{ 21200) »NEABEL STATNO 4 
6e COMMON/DOLOOP/ISTACK(4»S50) sNSTACK,ILOOP,IOVFLW® 
Je COMMON/BASBLK/IBLOCK (2500) »NBLOCK «NB yNBRNCH 
Be INTEGER A,BLANK,STATRA STATNO 7 
Je INTEGER BLIPUT.BITGET SS ee 2 STAINO 6 
1Ge OATA BLANK/IH / STATNO ¢ 
lie LOCO STATNOIO 
126 DO 5 Ie#l,5 STATNOLS 
_i3e IF(ACT) «NE BLANK) GO TO 10 5 STATNOL2 
l4e S CONTINUE STATNOL3S 
\Se IFCITYP «NEe 18) GO TO 7 STATNOI4 
lée IFC ITBLKOT .EQe 1) RETURN STATNOIS 
\7e IF(NBRNCH .EQe 0) GO TO 110 STATNOL6 
1ge IBLOCK (IBLKST) #BITPUT(IBLOCK(IBLKST) »NBRNCH,6) STATNOL7 
__19e ____ RETURN = es ere STATNOIS 
206 7 IFCITYP «€Qe 28) GO TO 90 STATNOI? 
21e IF(NBLOCK .EQ@e 0) GO TO B STATNO2ZO 
22° IF UIBLOCK(NBLOCK) e&Q+ 998) GO TO 32 STATNO21 
2360 IF(NB «EQ, 2) GO TO 35 STATNO22 
24e IF(NB «EQ. t) GO TO 70 STATNO23 
25e RETURG x es autrnaias teehee oo + ENO? 4. 
260 8 NBLOCKel STATNO2S 
276 GO TO 34 STAINOZ6 
286 10 IFCITYP «€Q@-. 58) GO TO SO STATNO27 
290 SPTRaL STAINO28 
306 CALL GNLE STATNO29 
a AO YO Ee SY eo Th Re Eso = ee me STAINO30 
32e IF (A(6) eNEs BLANK) GO TO 50 STATNO3I 
33e IF(JPTR oLTe 6) GO TO 50 STATNQ32 
348 CALL STSRCH STATNO33 
35¢ IF (BITGET(STATRA(ZsL0C) 2953) c€EQe 1) GO TO 60 STATNO34 
360 STATRA(2Z,LOCISBLTPUT(STATRAC2Z,L0C} 5159) STATNO3SS 
370 com ELE cS 9 GR FO 28 SIAINO36 
3860 STATRA(Z2,LOC)#BITPUT(STATRA(2Z,LOC) pI TYP 6) STATNO37 
390 Go TO 30 STATNO36 
4080 20 STATRA(2Z,LOC)SBITPUT(STATRA(2,L0C) 5946? STATNO39 
41e JO LFCLTYP .€Q. 28) RETURN STATNO4O 
42@ IF (NBLOCK «€Qe 0) GO TO 8 STATNO4I 
430 IF(INB oEQ, 1) GO TO 32 STATNO4? 
44e 31 NBLOCK*®NBLOCKelI STATNO43S 
4Se IBLOCK (NBLOCK) #998 : is STATNOS4 
460 NBRNCHSS STATNO4S 
47° 32 NB#0 = —_—— STATNO46 
4860 NBLOCK®NBLOCK¢1 STATNOST 
496 IBLOCK(IBLKST)#BITPUT(IBLOCK(IBLKST) yNBLOCK ,26) STATNO4B 
50° IBLOCK (IBLKST)@BITPUT(IBLOCK(IELKST) »NBRNCH,6) STATNOY® 
Sie JI@IBLKST+) ____STATNOSO 
52e JZ=NBLOCK«NBRNCH=1 STATNOSI 
S3e IF(IBLOCK(J2) «GT. 6900) GO TO 34 _STATNOS2 
S4e J2ZbeJ2-1 STATNOS3 
SSe 2) IF(TBLOCK( VI) ok Ts 6900) GO TO 34 TATNOS4 
Soe TRES@®IBLOCKI( JI) STATNOSS 
Sve 00 22 K2ejtys2to s eee ES -_ = STATNOSS6 
580 22 [BLOCK( KZ HL BLOCK(K2e4) STATNOS? 
898 IBLOCK(J2)@IRES” ns a ee Ty ne STATNOSB 
608 GO TO 21 7 STATNOS? 


34 IBLKSTsNBLOCK : : _____STATNO6O 


NBRNCH#O STATNOGL 
IBLOCK IBLKST) sBITPUTI(LOC,ILOOP,12) STATNO62 
IF(LOC e€Q. O) RETURN STATNO63 
STATRA(2,LOC) #BITPUT(STATRA(2,LOC),IBLKST,36) STATNO64 
IF (BITGET(STATRA(2,L0C),15,3) eNEs 1) RETURN STATNO6S 
IFCLOVFL® .EQe 1) RETURN mee “sg 
TF(LOC eNE. ISTACK(1,1L00P)) GO TO 80 STATNO66 
nes IFC(ITYP oGEs 3 sANDe ITYP oLEs 6) GO TO 100 STATNO67 
—— +4 t TIP SECs % sORS TTT sE@s tO .ORs TTYP .E@. 877 GO To 100 STATNOOB 
NBe2 STATNO6Y 
TSTACK(2,1LO0P)®1 STATNO7O 
NBLOCKSNBLOCKel STATNO7L 
~-—« EBLOCK(NBLOCK) #6000¢1STACK(4,1L00P) STATNO72 
KLOOPsILOOP-1 STATNO73 
~~ DO 40 Jal, KLOOP - a ee STATNO74 
LOOPsILOOP-y SF AINOTS 
TFCISTACK(2,LOOP) sEQe 1) GO TO 40 STATNO76 
IF CISTACK(1,LOOP) »«EQ- LOC) GO TO 35 STATNO7? 
~ FLOOP=LOOP STATNO78 
RETURN STATNO79? 
3S TSTACK(2,LOOP)e1 : STATNOBO 
830 NBLOCK®NBLOCKe! ; STATNOBIL 
ave TBLOCK (NBLOCK) #@6000+ISTACK(4,LOOP) i. a STATNOB2 
40 CONTINUE STATNOB3 
~~ FLOOP=Q STATNOB4 
RETURN 2 - STATNOBS 
S50 IERC#32 
¢o TO 200 a “ ye 2 
60 LERC#33 
= ___ GO 10 200 
70 JTERC#34 
G0 TO 200 
80 IERC#35 
d GO TO 200, = 
90 IERC#36 
— __ GO TO 200 = 
100 IERC#37 
____ 60 TO 200 — 
110 1ERC#38 
200 CALL ERRORITERC KOMI» KOM2) es 
RETURN STATNIOO 
ENO é STATNIOL 
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if oo OM ere pt ey ANY cee 


le SUBROUTINE STFNC(NFNC) 
ze COMMON A(4326),0(500) ,J0TBL 18,500) ,INITIDI3) ,LASTID(3),ISRCHI3), 
3e © JPTRIN AM, ITYPLSTART N21 FNCNM,LOGIONATID,IDTYPsNID,LOC, 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IDES 
Se COMMON/FUNC/IFNCRA(5,17) »MARGS, LARGS(SO?) »FNCLOC(S) »NFUNC 
6e INTEGER BITGET 
Te NARG®BITGET(ITOTBL (3,400) 4746) ra E = 
Be NARZSIFNCRA(NFNC)I1) 
Fe IF(NARG oNEs NARZ) CALL ERROR(26,1DTBL(1,LOC),KOM2) 
1060 NARGSSMHINDINARG »NARZ) 
lle F = “ROUND oe " 
12e NT#LO(NARG@1)D/4 
i3e Oo 10 I=t,nT sy es ee ee er = = am 
I4e 1cOLi==6 
iSe 1cOL2s-3 
lee 00 10 Jel,4 
17e KOUNT#KOUNT¢1 
180 IFUKOUNT .GT. NARGS) RETURN 
19e ICOLIsICOL +9 
206 1COL2#ICOLZ¢9 
20 __IF(BITGET(LFNCRACNFNC) 141), 1COL2,3) wNEe OF CALL ERROR(SO,KOUNT,K) 
: 220- ETP Ht eBEFGETTIFNERAINENE tote stot ts 3? 
236 IF(ITPL «EQ@s OF GO To 10 
~ 2ae ~~ TYP2eBTTGET(TOTBL(3,LO0C*KOUNT),10,3) i —- = 
25e TFCLTPL sNEe LTP2) CALL ERROR(SI,KOUNT,KDM2) 
“260 10 CONTINUE ~— 
270 RETURN 
280 ~~ END ~ 
1 SUBROUTINE STORE STORE 2 
2° COMMON AC 1326) 40(500) y10TBL(8,500) pINITIO(3) LASTIO(3) »ISRCHI3), RICH 
3e © JPTRINsM,JTYPyLSTART NZ, 1FNCNM,LOGID NXTID,IOTYP,NID,LOC, 
fe 2 LTYP,ITYP,IBLKOT»MODE,TERR,IOES RICH 4 
Se NIDSNIDe} STORE 4 
6s __IF(NIO 4G6T. 500) GO TO 20 
Te IF(INITIOCIDTYP) »NE. OP GO TO S STORE 5 
Ge INITID(LOTYP)*NIDO E we =a 
ge S CONTINUE STORE 7 
406 Z TOTBL(S NID) BNXTID STORE 8 
lhe 1DTBL(2,NI0) #0 STORE 9 
12e IF(LASTIO(IOTYP) »€Q, 0) GO TO 19 STORE 10 
136 LAST@LASTID(IOTYP) 
i4e LOTBL(2,LAST)®NIO . - P 2 wi —— 
1Se 10 LASTIOCIOTYPI=NIO STORE 12 
me = RETURN. ; : STORE 13 


20 MRITE(6,25) 

_25 FORMAT(/////5%,46H SYMBOL TABLE OVERFLO® = PROCESSING TERMINATED) 
STOP - 
END ann ORE £9 


le SUBROUTINE STSRCH STSRCH 2 
2e COMMON A(1326),0(500),10TB8L (8,500) ,INITIO(3) ,LASTIO(3),ISRCH(3), RICH 2 
3e © JPTR IN eM,JTYP,LSTART »N2,1FNCNM,LOGID,NATID,ILOTYP,NID,LOC, 
ve 2 LTYP,ITYP,IBLKOT,MODE,IERR,IDES : if Smee rs — RICH 4 
Se COMMON/LABELS/STATRA(2,200) ,NLABEL STSRCH 4 
ee INTEGER STATRA STSRCH S 
7e IF(NLABEL .EQe 0) GO TO 15 STSRCH 6 
Be OO 10 1#1,NLABEL STSRCH 7 
9e IF(STATRA(I,1) eNEs N2) GO TO 10 == STSRCH 6 
106 Locel STSRCH @ 
lle RETURN STSRCHIO 
‘V2e— 10 CONTINUE STSRCHI1 
130 15 NLABEL®NLABEL*I STSRCHI2 
~14e IF(NLABEL .GTe 200) GO TO 20 ‘ 
iSe LOC#NLABEL oy STSRCHL3 
160 STATRA(E»LOC)#N2 STSRCHI4Y 
17e RETURN STSRCHIS 
186 20 WRITE(6,25) 
19° 25 FORMAT(/////5%,53H STATEMENT NOw TABLE OVERFLOW - PROCESSING TERMI 
20¢ e@NATED) 
216 sToP as . 
22° END STSRCHI6 


y 
I 
} 


le SUBROUTINE SUB sue 2 
ze COMMON AU1326),01500),10TAL(8,500),INITID(3) ,LASTID(3),ISRCHIS), RICH Z 
3e © JPTRINSM,JTYP,LSTART»NZ,1FNCNMLOGIDNXTID,IDTYPyNID LOC, : 
ye 2 LYYP,ITYP,IBLKOT, MODE, TERR, IDES ae RICH 0 
Se OIMENSION IALPH(10),1TALPH2(8),KT(S) sus : 
oe “COMMON 7SUGS7TSUBS TS, 100) ,NSUBS sus 5 
Te INTEGER BLANK,COMMA,RPAR AsO = sus 6 
ge INTEGER B{TPUT Sus 7 
ve DATA (LALPH(L) , Tet, lO) SHS, IHU,ITHB, IHR, IHO,LHU,INT IT, THN, IHES sus 6 
ide DATA (IALPH2(E), 181,86) /1HF gL HU,IHN,LHC,IMT, UHI, LHO,LHNS sus 9 
tie OATA (CKTCTD, Let SI/EHR EHC LHO THI, IMLS Sus 19 
12e DATA BLANK/IH /,LPAR/IH(/,RPAR/IH)/,COMMA/IMG/ sus 1 
13e NARG®O 2 See) é pee wae NS = Sup ta 
rvs TSTATE®O - ——— 
1se AT =32-1T ye sus 15 
lee GO TO (2,5),1T Sus le 
i7e 2:00 3 I1#1,8 ne eV Be : Sup) oi7 
16 IF(NEXTCUPTR) oHEe TALPH2(121 GO TO SO sus ie 
_19¢ 3 CONTINUE ae zs eh ee S2 5 Se Ye = Sus 19 
200 GO TO 12 sue 21 
Zhe 5 00 10 t=3,10 SuB 22 
22e IF(NEXT(CJPTR) oNE. ITALPH(I1)) 6O TO 50 Sug 23 
2360 10 CONTINUE ae __Sup 24 
240 GO TO 17 Sup 26 
2Se 42 IPTReJPTR —— ——— ——— SVB 27, 
260 IFRSTONEXTID) Sup 28 


Se {eee lai fa eA ee a ee ee eee |) ee ae 


280 00 13 181,58 sus 30 
aye _____IF(IFRST ,NEe KT(1)) GO To 13 SUB 34 
30¢ ISTATE®! 
ers 3 See errr “2 92 pate ee = SUB 33 
32e 13 CONTINUE Sus 34 
aie 14 JPTRSIPTR Sua as 
34e 17 CALL GNLE sus 36 
_35¢ IF(JTYP eNEe 2) GO TO 50 7 SUB 37 
see 1OTYPs2 Sus 39 
= DEC CALL STORE = SVB > 
380 1€e0(1) 
39° IF(ITYP eNEs 34) GO TO 15 peewee: |'; mee, > oe 
90¢ IF(NEXTCJPTR) oNEs LPAR) GO TO 50 sus 43 
mee! AS IF NCNMBNXTIO = _3V¥B 99 
92¢ 60 TO 20 Sus 45 
430 ‘15 IF(NEXT(UPTR) .EQe BLANK) GO TO 39 sus crs 
440 IFUALJPTR-1) eNEe LPAR) GO TO 50 sus a7 
aSe NLE 
S60 IFC JTYP oNEe 2) GO TO 60 sus a9 
a7 CALL SEARCH __ Sus $o 
1660 TFCISRCHCL) eNEo O cORe ISRCH(2) sNEe OF CALL ERROR(B6,NXTID,KOM2) 
490 lotyest Sup $2 
SOe CALL STORE Sus $3 
e IDTBL(3,N sBITPUT 8 NID @ 
S2e NARGENARGS) sus ss 
Sie IFINEXT(JPTR) +EQe RPAR) GO TO 30 sus $6 
s4e TF CACJPTR=t} NE. COMMAS 6O TO SO sua $7 
SSe_ ____ 60 TO 20 Sua se 
Sée 30 LOCe#! 
57° DCbdelE 
S80 TFUNARG o6Ts 63) CALL ERROR(83,KOMI,KOM2) 
S9e TOTBL(3 LOC) SBITPUT(LOTBL(3,LOC} »NARG,7? Sus oi 
60¢ IFCITYP 2&€Q@e 30) RETURN 
éie IFCISTATE .EQe O) GO TO SS 
62 TDTBLI3,LOC)eBITPUTIIOTBL(3,L0C),ISTATE,10) sus rx) 
é3e TOTBLI3 LOCI SBITPUTISOTBL(3,LOC) oI ott?) Sus 67 
o4e RETURN sus oe 
6Se 5S CALL IMPTYP 
bee RETURN 
67e SO CALL ERROR(7 KOMI, KOM2) 
6te RETURN Sus 70 
69e 60 CALL ERROR(86,NXTID,KOM2) 
70¢e RETURN Sue 72 
Tle Eno Sue 73 


TS SUBROUTINE SUBTHK 


ze COMMON A(1326),0(500),10TBL (8,500) ,INITIO(3) ,LASTID(3),1SRCH(3), 
je @ JPTRIN SM, ITYP,LSTARE N2Z,1FNCNM,LOGID,NATID,JDTYP,NID,LOC, 
4e 2 LTYP,ITYP,IBLKOT, MODE, TERR, IOES 
Se COMMON/GLOBAL/NALK ,NREF ,NSUBS ,BLKTBL (200) ,EXTIBL(100),15UBS(100) 
oe : COMMON/LIST/NLIST,NINTFC,ISUBLT (3,200) ,INTFAC(500) " 
Je INTEGER BITPUT,BITGET 
Be IFC IBLKOT .EQs 1) RETURN 
ge NSUBS#NSUBS¢] 
100 IF(NSUBS .GT+ 100) GO TO SO 
lie NARGSBITGET(IOTBL(3,1)57+6) 
ize ITP#BITGET(IDIBL( Jad) s10n9) = —— ee =— - 
13e IF(BITGET(IOTBL(3,1),18e1) eEQ@e 1) GO TO 1S 
14e IDTBL¢3,h)MBITPUT(IOTBL (3,1) aty18) : 
tse 80 S tetynttst 
lee IFCIOTAL¢1,1) «NE. I1SUBLT(1,1)) GO TO S 
ve" : LISTLCel! a ee oe BS ee et ee =. ve <a 
lee 1OTBL(3, 1) SBI TPUTC(IOTBL(3,1) LISTLC,36) 
19° GO TO 20 
20° & CONTINUE 
21° CALL ERROR(S2,KOM1,KOM2) 
228 —_NLESTeNLESToR a : 
23¢ TSUBLT CE SNLIST)@IOTBL( 1,1) 
240 ISUBS(NSUBS) SNLIST 
250 ISUBLT(2,NLIST)#O 
260 USUBLT(C3,NLISTI«O 
276 IDTBL(3,td=BITPUT(IOTBL(3,1) sNLIST 36) 
28¢ __IFANARG 4€Q6 0) RETURN _ : _ ——— pate eee 
296 IPTRENINTFCel 
30¢ ISUBLT(2,NLIST) #BITPUT(O,NARG»6) 
3ie ISUBLT(2,NLIST)SBITPUT(ISUBLT(2,NLIST) ITP 413) 
32° ISUBLT(3,NLIST)@IPTR 
33e NINTFCSIPTR*(NARG=1)/4 
34e KOUNT =O ite z z = aon a 
350 DO 10 TeIPTR,NINTFC 
360 INTFAC( 1) #0 
37° 1COLI=-6 
_ 380 1COL2=-3 
3960 00 1G Jet,4 
_ 40¢ KOUNT=KOUNT#1 A 
a | “LF CKOUNT 4GT. NARG) RETURN 
420 ICOLI=ICOLI+69 
430 ICOL2=1COL2¢9 
440 ITPeBITGET(IOTBL(3,KOUNT#1),10,3) 
45¢ NOIM@BITGET(IOTBL(3,KOUNT#1) 5746) 
460 TOTBL(3,KOUNT#I) SBI TPUTI(IOTBAL(3,KOUNT OI) yty tS) —— = = 
47¢ INTFACC EL) wBITPUTCINTFAC(I),ITP,ICOLI? 
488 10 INTFAC( TL) eBITPUTCINTFAC( IT) »NOIMyICOL2) 
49¢ RETURN 
50° 15 LISTLC#BITGETI(IOTBL(3,1),36,9)? 
Sie 20 ISUBS(NSUBS) #LISTLC 
S2° KLAS@BITGETIISUBLTI(2,LISTLC) 10,4? _—— ee 
S30 NARZ@BITGET(ISUBLT(2,LISTLC) 46,6) 
S4e TF (NARG sNEe NARZ) CALL ERROR(26,10TBL C1 t>,KOM2) 
55¢ NARGS@MINOINARG,NAR2) 
Soe IFCLTP eNEs BITGETCISUBLT(Z,LISTLCH 83,39) 
576 S CALL ERROR( 49, 1OTBLI 1,1), KOM2) 
586 IF(NARGS .€Q6 0) RETURN ‘ 
S90 IPTR#ISUBLT(3+LISTLC) 


60¢ NOPTReIPTR*(NARGS~1)/4 


éle KOUNT#0 


62° 00 25 I=IlPTR,NOPTR 
630 IcoLte-6 
64e 1COL2=-3 
~~ 65e ooo sate ee ‘ i a se 
66e KOUNT#XOUNT¢] 
670 IF(KOUNT .GT. NARGS) RETURN 
680 ICGLIsICOLI+9 
69e FCOL2*I1COL2+9 
UL — ITPSBITGETCINTFAC(I),ICOLE,3) _ = le = 
Tle NOIMMBITGETCINTFAC(I)sICOL2,3) 
72e 1TP2=BITGET(1OTBL(3,KOUNT#1),10,3) 
736 NDIMZ=#BITGET(IOTBL(3,KOUNT+1I),7,6) 
Se ee __TOSTAT#BITGET(INTFAC( IT) ,ICOLZ4242) _ - se said 
75e IFC LOSTAT .EQe 2 .OR, KLAS «EQe 0) JOSTATSI 
Toe IDTBLU3,KOUNT#1) SBITPUT(IDIBLI3,KOUNT#1) pLOSTAT, 15) 
77° IF(NOIM «NE. NOIM2) CALL ERROR(SO,KOUNT,KOM2) 
7860 IF(ITPZ «NE. 0) GO TO 23 
790 ITP291 
CO Olen eee eS LF ST#BLTGET(LOTBL( 1 KOUNTSE ) 9656) St SG ee ee = a: 
Ble IFCIFST eLEs 19 eAND, IFST .GEe 14) ITP284 
82e 23 IFC ITP oNEy JTP2) CALL ERROR( SL 4KOUNT,KOM2) 
B30 25 CONTINUE 
B4e RETURN 
BSe 50 CALL ERROR(25,KOM1,KOM2) 
___Bee Sa Oe = . ee es Se a eee 
876 END 
le SUBROUTINE SWITCH SMITCH 2 
2e COMMON AC 1326) ,0(500) ,1OTBL (8,500) pINITIO(3),LASTIO(3),1SRCH(3), RICH 2 
3e © JPTRIN SM JTYPyLSTART yNZyLENCNM pLOGIO pNXTIO,LOTYP NLD LOCy 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IDES RICH 4 
Se 00 20 I#1,NID f 5 A SWITCH 4 
be IF(LOTBL(2,1) eNE« LOC) GO TO 20 SWITCH S 
Te IDTBL(2,1)#10TBL(2,L0C) i : : SWITCH 6 
Be IF(LASTIO(1) e&Qe LOC) LASTIDO(I)SI SWITCH 7 
9e GO TO 30 He = _ SWITCH 6 
10¢ 20 CONTINUE SWITCH ? 
lie INITIOC LH) s10TBL(2,L0C) : SWITCHIO 
12° 30 LAST#=LASTID(2) 
13° 1OTBL(2sLAST)#LOC 
14e TDTBL(2,L0C)#0 SMITCHI2 
1Se CAStiotzretoe ve SwITCHI3 
lee CALL ERROR(B7,10TBL(1,LOC),KOM2) 
17¢ RETURN SITCHI4 
ibe END SWITCHIS 


le SUBROUTINE SYMTAB SYMTAB 2 


2e COMMON A(1326),0(500),10TBL (8,500) »INITIO(3) ,LASTIO(3),1SRCH(3), RICH 2 
__3e : © JPTRyNpMyJITYP yLSTART NZ, 1 FNCNM yLOGIDNXTID, IDI YP NID ,LOCy 
4e 2 LTYP,ITYP,IBLKOT,MODE,IERR,IDES RICH 4 
Se ____ COMMON/LABELS/STATRA(2,200) ,»NLABEL SYMTAB 4 
4 6e COMMON/LIST/NLIST,NINTFC,ISUBLT(3,200),INTFAC(SOO) 
Te COMMON/STFUNC/NSTFNC,ISTFNC(10) 2 zs 
ge OIMENSION ITABEL(S) SYMTAB S 
9e __INTEGER TYPE(S) ,01MS(3),BITGET,STATRA = = ___SYMTAB 6 
te DATA CEYPECT I Tet ST7AMRERL , ONCOMPLX, ENDOUBLE ,ONINTEGR, 6MLOGICL/ SYMTAB 7 
lie OATA (OIMS(1)5181,3)/1H1,1H2,1H3/ SYMTAB 8 
; ize TF(NID «LE. 1) RETURN SYMTAB 9 
j 130 1ExT#=0 SYMTABIO 
. ~ 14e TF (IBLKOT .EQ@e 1) GO TO 2 =m =< So SYMTABII 
Use CENTS INT TIO(2) — : = 
16e WRITE(6,1) LOTBL(1,INTL) 
17° 1 FORMAT(//////4SXy2SH SYMBOL TABLE FOR MODULE ,A6) SYMTABI3 
186 GO TO 4 SYMTABI4 
190 2 WRITE(6,3) eee SYMTABLS 
206 3 FORMAT(//////46X,28H SYMBOL TABLE FOR BLOCK DATA) SYMTABLE 
216 4 LOC#INITID(1) SYMTABIL7 
22e IF(LOC «EQ. 0) GO TO 28 SYMTABIB 
236 RITE(6,5) : a _ ee SYMTABI? 
24e S FORMAT(//S6X,9HVARIABLES/30X »4HNAME ,12X,49HTYPE,31X,1OGHRELOCATION) SYMTAB20 
és _ 256 100 ITABEL(1)#IDTBL(1,L0C) SYMTAB21 
3 260 IF(BITGET(IOTBL(3,LOC),11,1) e&Qe OP GO TO 27 
tee _27e I=BITGET(LOTBL(3,LOC),10,3) 
' 2860 ITABEL(2)aTYPE(I) SYMTAB23 
- 290 12 IF(BITGET(IDTBL(3sLOC) g1y]) eE&Qe QO) GO TO 16 
4 3060 ITABEL (3) @SHARRAY SYMTAB26 
ee 310 T=aBITGET(IDTAL(3,LOC),7,6) SYMTAB27 
3 32e ITABEL (4) @DIMS(1) SYMTAB28 
ae 330 GO TO 18 SYMTAB29 
= 34e 16 ITABEL(3) 01H SYMTAB30 
4 350 CT ABEL( 4) 01H Re Oe = SIR ERS 
3660 18 IF(BITGET(IOTBL(3,LOC),12,1) e£Q- OP GO TO 20 SYMTAB32 
37e ITABEL(S) @5HFe Pe SYMTAB33 
3860 GO TO 25 SYMTAB34 
j 390 20 IF(BITGET(IOTBL(3,L0C),16,1) eEQe 1) GO TO 22 SYMTAB3S 
4 40° 1TABEL(S) 81H SYMTAB36 
= 41e Go ro 25 5 = _ SYMTAB37 
— 42e 22 ICOMNMsIOTBL(6,LOC) SYMTAB36 
a 430 ITABEL(S) @IOTBLI(1,ITCOMNM) SYMTAB39 
2 4460 IFCITABEL(S) s€Qe IH ) ITABEL(S)*2H// SYMTAB4O 
4Se 25 WRITE(6,26) (ITABEL(1),181,5) a SYMTAB4I1 
4be@ 26 FORMAT(IOX AS TIX AG LHX ASS IX AL, 7X,AG) SYMTAB42 
47° 27 LOC#IDTBL(2,L0C) ewe PE ee 
4Q60 IF(LOC «NE. 0) GO TO 100 SYMTAB4Y 
490 28 IF(IBLKDT .EQ@- 1) GO TO 60 
Soe LOC#IDTBL(2,INTL) 
: Sie IF(LOC «€Q@. 0) GO TO 60 
3 S2e WRITE(6,31) SYMTAB48 
Sie 2S 31 FORMAT(//S55X,10H EXTERNALS/4Y4X,4HNAME,LOX,YHTYPESIOX,4YHARGS) < SYMTABSS 
S4e 30 ITABEL(1)#10TBL(I,LOC) 
Sse LISTLC#BITGET(IOTBL(3,L0C) 43649) 
7 S6e IF(LISTLC s€Qe 0) GO TO 39 
S7e ITPSBITGET(ISUBLT(2,LISTLC),13,3) 
586 IFCITP «€Q. 0) GO To 32 
S7e ITABEL(2)=TYPE(ITP) 


60¢ GO TO 35 


ITABELi2) with 


e620 3S TFCOLTGET(ISUBLT(2,LISTLC) 14,1) «6Qe 1) GO TO 37 

6360 TTABEL (3) eBITGET(ISUBLT(2,LISTLC),6,6) ree x2 

o4e ~ WRITE(6,36) CITABEL(ID,Le1,3) : SYMTABSS 

6Se 36 FORMAT( 49% .A6,8X,A6, 8K, 12) SYMTABS6 

660 G0 TO 39 

67 37 GRITE(6,36) ITABEL(ID,ITABEL(2) ene = = a ‘ar 

&8e 3B FORMATCU9X,A6,8X,A6,8X,2H TY = = ioe 

690 39 LOc#I0T8L(2,L0C) ; 

700 IF(LOC »NE» 0) GO TO 30 SYMTABSS 

Tle 60 IF(NSTFNC .EQe 03 GO TO 40 < 

72¢ G@RITE(6,62) 

730 62 FORMAT(//SOX,20H STATEMENT FUNCTIONS/ —— 

T4e 3 44X,4HNAME, LOX, 4HTYPE,1OX,4HARGS) 

7Se 00 70 I#1,NSTFNC - 

Tee LCeISTFNC(I) 

77° ITPeBITGET(IOTAL(3.6C)210.3) ee ea 

786 NRG@BITGET(IOTBLI3,LC) 47,6) 

790 70 BRITE (6,36) LOTBL(DaLC)gTYPECITP) NRG = ae 

8060 40 IF(NLABEL «EQ. 0) GO TO SO SYMTABS® 
—__ Sie @RITE(6,42) SYHTAS@O 

820 42 FORMAT(//SIK,17H STATEMENT LABELS) SYMTABOL 
__83e __WRITE(6.4%S) (STATRACH oT), Te1 sNLABEL) = SYMTABG@2 

B4e 45 FORMAT(40x,S18) SYMTABG3 

ase 00 47 TeL,NLABEL oe —— SIATABSS 

Boe IFC BITGET(STATRAC2Z 5105903) oNEe 1) CALL ERROR(IS,STATRA(I,1) KOZ) 

e 

886 47 CONTINUE SYMTAB67 
__8%e SQ LOCeINITIOS3) = se cs SYMTABIO 

900 IF(LOC «€Q@+ 0) RETURN SYMTAB7I 

Fie = _WRITE(6,52) Se 2 Sas SYMTAB72 

920 $2 FORMAT(//53X,14H COMMON BLOCKS/SOX,»4HNAME, 10K, 6HLENGTH) SYMTAB73 

e s a a ES 

940 TFCITABEL(L) c€Qe 1H ) TTABELC I) @2H// SYMTAB7S 
9Se __ WRITE(6,55) ITABEL (I) sTOTBL (4 ,L0C) Se ar ee _SYMTAB76 

Yee SS FORMAT(SOX,A6,6X,i18) SYMTAB77 

70 _— J8Gcetovects Cochise —— : ___SYMTAB70 

980 IF(LOC sNE~ O) GO TO SI SYMTAB79? 

99@ RETURN SYRTABEO 
1006 END SYMTABBL 


te SUBROUTINE TYPE TYPE 2 
~ COMMON AU1326),0(500),10TBL (8.500) ,INITID(3) LASTIO(S),ISRCHI3), RICH 2 
3e © JPTR NM, JTYP,LSTART NZ2,1FNCNM,LOGIO,NATIO,IOTYP,NIO,LOC, 
we EL TYP, ITYP, TBLKOT,MODE,ITERR,IDES — ined met ee RICH 4 
Se OLMENSION JALPHE(7),TALPH2(7) sTALPH3(4) pLALPH4Y(7) ,LALPHS(IS)s TYPE 4 
be T 1OIm(3) TYPE § 
Te INTEGER A,RPAR,COMMA,BLANK 3 TYPE 6 
te INTEGER BITPUT,BITGET,COMLOC TYPE 7 
ve DATA CDALPHIC1) 181, 7)71HL »THO,IHG IMI pTHC,IHA,IHL gy TYPE 6 
10° DP CTALPH2Z¢1), 101,57) SIMD THN, INT, IHE, IHG, IME, IHR, TYPE 9 
ite 2 CTALPHI(I) Leds td /IHR, THE, ITHA,IHLS, TYPE 10 
ize 3 CLALPHSYCT) Lede 7) /SEHC,LHO, THM, THP, IHL, JHE, LHAs, TYPE il 
i3e © CLALPHSCTD Lets ESI 7UMOSLHO,EHU,LHB, IHL IME, LHP IHR, IME, ENC Tree 42 
vs 5S THI, IHS+1HI,1HO,IHN/ : TYPE 13 
ise DATA LPAR/IH(/,RPAR/JH)/ COMMAS IHG / BLANK/IN / TYPE 44 
lee AULel TYPE is 
Ee __ Atel tvectg TYPE |e 
1860 GO TO (10,20,30,90,50),1T TYPE 17 
APE 10 00 15 Jel,7 Se = — TYPE 18 
2060 IF(NEXT(JPTR) .NEo TALPH2(1)) GO TO 110 TYPE 19 
—iht S.A GORE ENG __Lype 20 
22e ISTATE®3 TYPE 21 
__23e¢ JP SFAT ESS — — ; ee r 
2460 GO TO 60 TYPE 22 
__.2$¢e 29 00 25 jel ,s _ — Sea Sa TYPE 23 
2ee 1FUNEXTOUPTR) .NE. TALPH3(S)) GO TO 110 TYPE 24 
& Nw LYPE 25 
2660 ISTATEsS 
___29e : 40 10 60 = ——— = =. ee ee 
300 30 00 35 iet,tS Tree 28 
_Dhe OF ANEXT(JPTR)D gNEs LALPNS(1)) GO TO 110 —= = Type 297 
320 35 CONTINUE TYPE 30 
ae ee a ee oe | 
340 ISTATE®) 
pee) @9 TO 69 D613 a? 
Jee 90 00 45 Iel,7 TYPE 34 
ae Ce AF(NEXT(JPTR) oNEo LALPHS(1)) GO TO 110° ae __TYPE 35. 
3860 9S CONTINUE TYPE 36 
age Aa =2 LIYPE a2 
9060 ISTATES2 
Sie GO TO 60 IYPE 39 
420 $0 00 SS 1e1,7 TYPE 40 
__§}e ss CNET (JPTR) oNEo LALPHIC1)) GO TO 110 pees hid ee 
440 SS CONTINUE TYPE 42 
sa ee 
s60e 60 1SuU8e0 TYPE 44 
a.) SaaS _IYPE 45 
"Be CALL GNLE TYPE 46 
_89e CO TYP NE e 2) GO TO 110° Z = 1) = 
S0e CALL SEARCH TYPE 48 
s 
Sze TFCUSRCHCED c€Qs 1) GO TO 62 TYPE sO 
S30 IptyPs) Type Si 
CALL STORE TYPE 52 
OCeNID TYPE 53 
62 IF(BITGETCIOTOL(3,LOC),I1,1) «NE. OF GO TO 120 
IF (NEXT(JPTR) NEo LPAR) GO TO e 
1susei TYPE 56 
fEeLoc TYPE $7 


ote 68 tates 


62e CALL GNLE ; TYPE 59 
630 IF(JTYP «NEs S) GO TO 65 Seles Fae Type 69 
o4e TDIM(1)#N2 TYPE 61 
_ ose ___IFUN2 66T. (2ee17-1)) CALL ERROR(8,KOMI,KOMZ) = 2 
bee IF(N2 «LE. 0) CALL ERROR(8,KDMI,KDM2) 
67e . _INCR#INCRONZ TYPE 49 
68e GO T0 67 TYPE 65 
690 65 IF(JTYP »oNEs 2) GO TO 110 TIPE $6 
. 706 CALL SEARCH TYPE 67 
Jie ___SFUISRCH(2) -EQ. 1) CALL ERROR(1O,NXTID,KOM2) a as a= 
—tee - fFLTSREHtIY eE@s 17 GO TO 66 —— TYPE 8 
7360 Lorvest TYPE 70 
74 CALL STORE TYPE 71 
7Se (LOC#NID — ; : a=. TYPE 72 
—76e BH OTF (CBITGET(IOTBL(3,L0C),12,1) eNEe 1) CALL ERROR(9,KDOMI,KOM2) Pw 
| 77¢ TF(BITGETC(IOTBL(3,LOC),1,1) e«NEs OP GOTO 130 —_ ; 
78e =———<“<i—S—stt:t«CS ALS PT YP 7 a : TYPE 75 
7190 IF (BITGET(IOTBL(3,LOC),10,3) eNEs 4) CALL ERROR(9,KOMS,KOMZ) 
e060 IDTBL(3,LOC) SBITPUT(IOTBL(3,L0C),14513) Tyee 77 
__ 6s DINER pezees7etoe OE ne 
62e 67 IF(NEXT(JPTR) «€Qe COMMA) GO TO 68 TYPE 79 
| B30 AFA ALUPTRe1) eNEs RPARD) GOTO 110 Fe Se __TyPe 60 _ 
B4e KeNEXT(JPTR) TYPE 61 
ase Locele 
Bée IF (BITGET(IDTBL(3,LOC),1e1) eNEe OD 
87 SS CALL ERROR(I1,1OTBL(1,LOC) »KOM2) aes Serres 
eBe IDTBL(3,LOC)BBITPUTEIDTBLI3,L0C),151? TYPE 86 
890 IF(I oGTs 3) GO TO 110 | a et TYPE 67 
90° GO TO (85,80,75)51 TYPE 68 
gie 75 IDTBL(4,LOC)SBITPUT(JOTBL(4,LOC) ,IDIM(3) 36) TYPE 69 | 
920 BO 1DTBL(4,LOC) sBITPUT(IOTBL(4,L0C),IDIM(2),18) TYPE 90 
930 BS FDIBLAS,LOCISBITPUTIIDTBLI3,L0C),IDIM(1>536) | TYPE 91 
94e IDTBL(3,LOC)#BITPUT(IOTBL(3,L0C) 4157) TYPE 92 
95¢@ _—_—_—sB7_IF(INCR eEQe 1) GO TO 90 E eae Kn TYPE 93 | 
Joo TF (BITGET(IDTBL(3,L0C),16,1) eNEs 1) GO TO 90 TYPE 94 | 
970 COMLOCSIDTBL(6,LOC) ia _ -FY#E. 95. 
986 TOTBL(4,COMLOC) SIDTBL(4,COMLOC) +INCR=1 TYPE 96 | 
99e === 90 TDTBLI3,LOC)SBITPUTI(IDTBL(3,LOC),ISTATE,IO) EF. 
1006 TOTBL(3,LOC)#BITPUT(IDTBL(3,LOC) yte1t) TYPE 98 
tole 3 IF(ACJPTRel) c€Q@e COMMA) GO TO 60 | SS ___EVPE 99 
1oze IF(NEXT(CJPTR) cEQ. BLANK) RETURN TYPE 100 | 
1o3¢ 450 CALL ERROR 7, KOMI,» KOM2) 
104e RETURN TYPE 102 
tose 120 CALL ERROR(I2Z »NXTID,KOM2) ee — me, 
1066 RETURN | 
1070 130 CALL ERROR(I4 »NXTIDKOM2) o Pe ne ! 
tose RETURN | 
1096 END TYPE 103 


| 
| 
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Auxiliary Programs and Associated Deta 


Program GRAPH 


OIMENSION INT(1000) 
10 FCRMAT(1216) 
20 FORMAT (21 E, A616, Abs 7I6/AGy 216 AG, 316, Ay 164 Abe 2T E/A6 HIG AB a SI 6y 
S$ 465216/A6,21 6, AG yBIE SAGs 165 AG 516 AG ol6y Abs 316 2A E/ STE e AG 316 y Abe 
$ 316 eA6/7 165 A6e4I 6/516, A6 616/12 169) 
READ 10, CINTCI) pI =1,11) 
WRITE(G) CIATOCD)o T=19 14) 
READ 20,INT 
WRITE(K) INT 
READ 10,rtT 
WRITE(4) INT 
READ 10,IKT 
WRITE(G) INT 
READ 10,IAT 
WRITE(K) INT 
READ 10,INTC1) 
WRITE(G) INT(1) 
READ 109 CINTUI) oT=1934) 
WRITE(G) CINT(D) » I=, 34) 


stop 
END 
Syntax Graph 
1000 99 17 e 17 0 21 ) 0 ) 1 
359 60¢ i- 2 103 163 67 3 3 4 
. 72 SRL 0 669 483, 10cP 10000 349 
° 7 #60 798 7950P 20000 21 8) 9 &2 
18 &60° 930 10 86935 6 103 935 46860 256 
c 120 235 13° 1% 366 467C oR 
15 795 795> 16 391 &11NT 17 «322 © «359x 
19 28 a7 86359 29 $35 8 977> 110 67 3186 $18 
29 «22800359 40 9357 130 3 72 11 72 60 


107 62 109 111 112 113 114 115 116 117 118 119 


131 133 134 136 136 137 157 136 93 140 142 143 
144 145 #46 147 61 460 146 151 152 153 154 155 
15€ 110 157 159 93 114 160 163 164 165 166 167 
166 285 60 169 172 173 66 174 68 130 176 179 
133 114 72 169 184 185 166 187 188 189 516 196 
192 193 194% 195 86 130 196 199 133 200 202 203 
204 205 206 207 208 209 210 211 212 103 126 208 


LJ 
+/ 


12 89 617 17 268 19 800 4 2A 23 783 13 
26 228 130 29 2c 31 241 69 266 35 305 37 
3a 36 130 15 4 345 129 191 69 4 130 378 
50 428 94 89 Su 471 56 515 445 67 42 61 
560 710 839 65 6CE 5 34E 69 €53 12 696 73 
686 15 4 74 93 535 10 33 889 15 64 555 
86 S77 89 47 88 10 8 89 597 366 93 96 
$19 108 190 101 102 103 104% 105 106 107 109 96 
111 93 112 113 114 115 116 117 118 119 120 Tze 
4 123 124 125 12€ 127 128 131 1 175 133 4 
134 U3E 13€ 137 138 140 162 142 133 143 144 145 
146 147 148 151 z 130 152 153 154 155 156 LaF 
159 208 160 163 LS7 228 164 165 166 167 168 169 
172 315 5 173 174 176 69 179 89 29 160 1864 


206 207 298 209 21C 211 212 213 217 5 69 110 
218 €20 452 22% 222 223 224 225 227 463 229 as 
231 133 232 235 130 235 236 238 3 240 157 242 

30 243 244 246 267 69 248 249 251 150 252 253 
254 265 25€ 257 258 259 262 89 3 263 265 519 
267 eo 269 16 276 271 272 273 274 275 277 256 
278 279 280 281 262 263 284 285 267 3 268 289 


314 315 316 317 316 321 1 130 322 323 325 445 
326 327 328 329 330 332 292 333 334 335 337 263 
338 339 340 341 342 343 344 347 59 2 348 349 
350 RLS t 352 353 354 355 357 869 358 359 361 69 


387 51 348 389 391 126 392 393 335 21 397 13 
396 399 400 402 208 404 p! 405 406 407 408 409 
410 Git 412 413 415 69 416 417 418 419 420 422 
89 423 424 425 42E 427 43C 49 S 431 432 434 


apt aRrETI ae nen SNe HAP TENN NN ny TERR TN 


795 114 
606 607 
618 419 
630 831 
842 843 
654 655 
666 667 
878 879 
890 891 
902 903 
914 915 
927 230 
938 839 
951 4 
962 963 
974 975 
69 C87 
998 699 
43 2 
12 14 
2€ 25 
38 37 
50 49 
60 737 
72 139 
86 85 
97 96 
0 27 
121 0 
9 0 

) 0 

0 75 

0 170 
181 182 
0 0 

0 0 

b] 0 

0 230 
91 0 
i) 0 

0 266 

0 0 

0 0 

c 0 

0 0 

9 0 

0 0 

0 0 

0 0 

0 374% 

9 TRE 

0 0 

0 0 
G21 0 
79 0 
Q 0 
457 0 
0 470 

9 GB2 
79 0 
0 5 

0 0 
529 0 
cuit c 
0 i) 

0 0 
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COMFILER(FLO=ASS) 

INTEGER TYPE ,CLASSsALKTYP (100) sBLKSIZ(100) 
OIMFNSION ISURLT(3, 200), INTFAC (500), IARGS (200) 
EQUIVALENCE (ALKTYP (1), IARGS(1)) » (BLKSIZ(1) ,TARGS (1019) 
NLIST=0 

IPTR=1 

READ(S,5,END240) NAME »NARGS » TYPES CLASS,ISIZE 
FORMAT (A6y1Xq 31 251X516) 

IFCISIZE eLT. 1) ISIZE=0 

NLIST=NLIST 41 

IVAR=0 

ISUELT (1 )NLIST) =N AME 

IF(NARGS .NEe -1) GO TO 7 

NARGS=1 

IVAR=1 

ITEMP=ISI2ZE 

FLD (096, ITEMP)=NARGS 
FLO(694,ITEMP)Y=CLASS 
FLO(10,3,ITEMP) =TYPE 
ISUELT(2,NLIST) =I TEMP 

ISUPLT (3yNLIST) =0 

IF(NARGS «EQ. 0) GO TO14 

FLO (13,15 ISUBLT (2,NLIST)) =IVAR 
ISUELT(3yNLIST)=IPTR 

IF(CLASS e£Q0. 7) GO TO 25 

JPTP=HIPTR 

INC=14#(NARGS-1)/4 

IPTR=IPTR4INC 

NOPTR=IPTR=1 

NPAF AM=3*NARGS 

READ (5,10) CIARGS (1), I=1,NPARAM) 
FORMAT(20 (31191) ) 

KOUNT=0 

00 20 I=JPTR»NOPTR 

INTFACCI) =0 

IBIT=-3 

00 20 K=1,12 

KOUNT=KOUNT 41 

IF(KOUNT «GT. NPARAM) GO TO 1 

IWINTH=3 

IBIT=IBIT+3 

IF (MOO(KOUNT,3) »E€Q. 0) TWIOTH=2 
FLOCIBIT,IWIOTH,INTFACC(I) )=IARGS (KOUNT) 
GO TO 1 

JPTREIPTR 

INC=1#(NARGS=1) 72 

IPTREIPTR*INC 

NOPTR=IPTR-1 

REAN (5927) (CBLKSIZ¢I) sBLKTYP(I),y 21, NARGS) 
FORMAT(10(1651XyI1)) 

KOUNT=0 

00 30 I=JPTR»NDPTR 

INTFAC(I)=0 

IBIT=-3 

00 30 Kei,2 

KOURT=KOUNT 41 

IF(KOUNT .GT. NARGS) GO TO 1 

IBIT=IBIT 43 

FLOCIBITs15—¢INTFAC(T) D=BLKSIZ(KOUNT) 
IBIT=IBIT+15 

FLOCIBIT» 2, INTFAC(I)) ©BLKTYPCKOUNT) 

Go TO 1 

WRITE(4) NLIST,NOPTR 

WRITE(H) COISUBLT (1 oJ) o 12193) pJeLeNLIST) 
WRITE(G) CINTFACCT) »I=1—NOPTRD 
WRITE(6,509 NLIST 

FORMAT(///42X,37H NEW LIST HAS BEEN CREATED CONTAINING I4,y 
$3 6H NAMES) 

sToP 

ENO 


Basic Interface Definition File 
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aes 114 OMAX1 -1 34 
102 302 
AINT 114 OMINL -1 3 4 
102 302 
ALOG 114 OMCD eae 
102 302 302 
ALOG1O 114 OSIGN 234% 
102 302 302 
} AMAXO -1 1 4 OSIN 136 
402 302 
AMAXL -1 14 osort 43% 
102 302 
AMINO -1 1 4% Exe 114 
402 102 
AMIN1 -1 1 4 FLOAT 141 & 
102 402 
aMod 244 TABS 1 && 
102 102 402 
AIMAG 114 IOIM 244% 
202 &D2 492 
| ATAN 114 IDINT 144 | 
102 302 
ATAN2 214 IFIX 1&& 
) 102 102 102 i 
CABS 114 INT 1&& 
202 102 
ccos 124% ISIGN 244 
202 402 402 
! CEXP 1246 MAXO 9-1 G&G 
202 402 
CLOG 124 MAXL =--1 GG 
202 102 
CMPLX 224 MING -1 GG 
102 102 402 
CONIG 124 MIN1 --1 G&G 
202 102 
} cos 114 “oo 244 
102 402 402 
CSIN 124 REAL 114 
202 202 | 
| csortT 124 SESCOM 207 25 
202 130 12 4 | 
DABS 134 SIGN 244 
302 102 102 
OATAN 134 SIN 114 
302 102 
DATAN2 234 SNGL 114% 
302 302 302 
OBLE 134 SORT 4 4 6 
102 102 
ocos 134% TAN 114 
302 102 
DEXP 134 TANH 114 | 
302 102 
orm 214 
102 102 
OLOG 134 
302 | 


i=] 
r 
°o 
o 
- 
o 
od 
J 
+. 


Ww 


Ww 


1 
it 
1 
1 
aL 
1 
0 
1 
1 
1 
uu 
1 
0 
1 


Microfiche copies 
1826 Wybraniec 


30 


INITIAL DISTRIBUTION 


NAVSEA PMS304-32 White 
NAVSEA PMS405-40 Cuthbert 
DDC 


CENTER DISTRIBUTION 


18/1809 

1802.2 Frenkiel 

1802.4 Theilheimer 

1809.3 D. Harris (Central Depository, CMLD) 
182 Camara 

1826 Culpepper 
1826 Wybraniec 

184 Lugt 

185 Corin 

186 Sulit 

189 Gray 

1890 Taylor 

5214.1 Reports Distribution 
52/2 


SS 


DTNSRDC ISSUES THREE TYPES OF REPORTS 


(1) DTNSRDC REPORTS, A FORMAL SERIES PUBLISHING INFORMATION OF 
PERMANENT TECHNICAL VALUE, DESIGNATED BY A SERIAL REPORT NUMBER. 


(2) DEPARTMENTAL REPORTS, A SEMIFORMAL SERIES, RECORDING INFORMA- 
TION OF A PRELIMINARY OR TEMPORARY NATURE, OR OF LIMITED INTEREST OR 
SIGNIFICANCE, CARRYING A DEPARTMENTAL ALPHANUMERIC IDENTIFICATION. 


(3) TECHNICAL MEMORANDA, AN INFORMAL SERIES, USUALLY INTERNAL 
WORKING PAPERS OR DIRECT REPORTS TO SPONSORS, NUMBERED AS TM SERIES 
REPORTS; NOT FOR GENERAL DISTRIBUTION. 


